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Vorwort 


Die Grafikfähigkeiten des Amiga sind phantastisch. Das ist un- 
bestritten, und Sie haben Lobesbekenntnisse dieser Art sicherlich 
zur Genüge vernommen. Wie aber macht man sich diese Wun- 
dermaschine gefügig? Wie programmiert man eigene Grafikpro- 
gramme, und was geht eigentlich im Inneren des Amiga vor 
sich? 


Die Antworten auf diese und viele hundert weitere Probleme 
finden sich in diesem Buch. Und zwar eingebettet in ein Kon- 
zept, das für den Einsteiger genauso interessant ist wie für den 
erfahrenen Profi. 


In den ersten Kapiteln wird der Einsteiger behutsam in die fas- 
zinierende Grafikwelt des Amiga eingeführt. Hier lernen Sie 
anhand zahlloser dokumentierter AmigaBASIC- und GFA- BA- 
SIC-Programme, wie sich Grafiken erstellen lassen, wie die Spe- 
zialbefehle des BASIC effizient genutzt werden, auf welche Wei- 
se bewegliche Objekte geschaffen werden etc. etc. 


Fortgeschrittene kommen im zweiten Teil auf ihre Kosten. Sie 
erforschen Stück für Stück das Multi-Tasking-Grafikbetriebs- 
system des Amiga und lernen die vielfältigen Grafik-Routinen 
des Betriebssystems kennen, die normalerweise im Kickstart- 
ROM verborgen sind. Besonderer Knüller: Alle wichtigen Daten- 
strukturen (wie Window, Screen, Viewport und andere) werden 
detailgenau erklärt und zum leichten Nachschlagen in Ta- 
bellenform aufgelistet. Am Ende dieses Teils werden auch 
BASIC-Programmierer ihre Grafiken auf den Drucker ausgeben, 
Grafiken im 64-farbigen Halfbrite- oder 4096-farbigen HAM- 
Modus erstellen und den Coprozessor programmieren können. 
Dinge also, die dem BASIC-Programmierer vorher unmöglich 
waren! 


Ob Sie das "Supergrafik"-Buch zur behutsamen Einführung, als 
potenten Problemlöser oder als kompetentes Nachschlagewerk 
nutzen - die vor Ihnen liegenden Seiten gehören in unmittelbare 
Reichweite! 


Die Autoren 
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1. Grafik auf dem Amiga 


Der Amiga ist ın vielerlei Hinsicht ein besonderer Computer. 
Seine tollen Eigenschaften haben schon viele überzeugt. Dabei 
sind die besten Argumente für den Amiga wohl seine Grafikfä- 
higkeiten. | 


Beim Amiga wird man - besonders als ehemaliger Homecompu- 
ter-Besitzer - immer wieder durch die große Anzahl der Befehle 
und wegen der hohen Geschwindigkeit der Grafikbefehle über- 
rascht und fasziniert sein. Während einige Befehle ziemlich 
komplex oder nur im Verbund zu gebrauchen sind, gibt es auch 
ein paar ganz einfache Befehle, mit denen Punkte, Linien und 
Kreise auf den Bildschirm gezeichnet werden, 


Im Gegensatz zu vielen anderen Computern werden Textgrafik 
und Hi-Res-Grafik auf den gleichen Bildschirm ausgegeben. 
Man kann Grafik und Text also ohne Probleme miteinander ver- 
binden. Deshalb brauchen wir auch keinen extra Grafikbild- 
schirm zu öffnen, sondern können gleich ans Eingemachte gehen 
und die Grafikbefehle ausprobieren. 


1.1 Erste Gehversuche: Mit PSET Punkte setzen 


Die kleinste Einheit einer Grafik ist der Punkt. Denn jede 
Computergrafik, von einem ganzen Bild bis zu vereinzelten Li- 
nıen und Kreisen, setzt sich ja nur aus vielen kleinen Bild- 
schirmpunkten zusammen. 


Der Befehl, mit dem man Punkte setzt, ist einfach und kurz: 


PSET (10,20) 


setzt beispielsweise einen Punkt in einer Entfernung von elf 
(10+1) Bildschirmpunkten vom rechten und einundzwanzig 
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(20+1) Bildpunkten vom oberen Fensterrahmen. (Beachten Sie 
bitte, daß die Adressierung der Bildschirmzeilen und -spalten 
mit Null beginnt.) 


1.1.1 Mit Maus und PSET ein einfaches Zeichenbrett 


Mit dem Befehl PSET kann man jeden beliebigen Punkt inner- 
halb des Ausgabefensters setzen. Das folgende Programm ist 
dafür ein recht gutes Beispiel. Immer wenn Sie die linke 
Maustaste drücken, wird dort, wo sich der empfindliche Punkt 
des Mauszeigers (der Punkt an der Spitze des Mauszeigers) 
befindet, ein Punkt gesetzt. Damit hat man ein primitives 
Malprogramm. Aber auch die ganz großen Grafikprogramme 
werden schließlich nach diesem Prinzip bedient. 


REM Zeichnen mit der Maus 


PRINT "Jetzt koennen Sie mit der Maus zeichnen" 
WHILE INKEY$="" 


IF MOUSE(O)<>O THEN 
x=MOUSE(1) 
y=MOUSE (2) 

PSET (x,y) 

END IF 


WEND 


Wie man sieht, reichen wenige Programmzeilen für dieses kleine 
Malprogramm aus. Die MOUSE-Funktionen dienen natürlich zur 
Kontrolle der Maus. Wenn die linke Maustaste gedrückt wurde, 
ist MOUSE(0) ungleich null. Nun können wir die Koordinaten 
des Mauszeigers mit MOUSE(1) (das ist der x-Wert) und 
MOUSE(2) (für den y-Wert) lesen. | 


1.1.2 Punkte löschen 


Wenn man Punkte setzen kann, muß man sie ja sinnvollerweise 
auch wieder entfernen können. Beim AmigaBASIC geschieht dies 
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ähnlich wie das Setzen von Punkten. Es gibt einen Befehl, der 
ähnlich klingt und die gleiche Schreibweise hat wie unser PSET- 
Befehl. Der Befehl lautet: 


PRESET (x,y) 


Wie Sie sehen, unterscheiden sich beide Befehle in ihrer 
Schreibweise nur um zwei Buchstaben. Im Programm könnte das 
ganze dann folgendermaßen aussehen: 


REM Demo fuer PRESET 


a=200 
b=400 
c=1 


zurueck: 
FOR x=a TO b STEP c 
PSET (x, 100) 
PRESET (x-40*c, 100) 
NEXT x 
SWAP a,b 
c=-c 
GOTO zurueck 


Bei diesem Programm wird eine Linie von 40 Pixeln auf den 
Bildschirm gezeichnet. Es scheint, als würde sich die ganze Linie 
bewegen. Dabei wird lediglich an die Linie vorne ein neuer 
Punkt dazu gesetzt und hinten einer gelöscht. 


1.1,3 So wird die Farbenpracht auf den Bildschirm gebracht 


Alle bisherigen Programme haben den Amiga noch nicht sehr 
gefordert. Sie ließen sich auch ohne weiteres auf andere Com- 
puter übertragen. Doch das wird nicht bei allen Programmen so 
einfach sein: z.B., wenn es um die Benutzung von Farben geht, 
denn eine Besonderheit dieses Computers ist seine Farb- 
darstellung. Damit ist nicht das wunderschöne Grau der Tasta- 
tur, sondern sind die 4096 verschiedenen Farben gemeint, die 
man auf dem Bildschirm sichtbar machen kann. Es verfügen 
wohl nur wenige Computer über eine ähnlich große Farbpalette. 
Zwar werden wir Ihnen an späterer Stelle zeigen, wie sich bis zu 
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64 oder sogar alle 4096 Farben gleichzeitig von BASIC aus 
nutzen lassen, doch wollen wir uns hier mit den normalerweise 
maximal vorhandenen 32 Farben begnügen. Die farbigen Punkte 
setzt man fast genauso, wie wir es schon in den vorherigen Pro- 
grammen mit einfarbigen Punkten gemacht haben. Dabei wird 
nur der Wert eines Farbregisters, das die gewünschte Farbe ent- 
hält, hinter den Befehl gehängt: 


PSET (10,20),2 


Die Farbe des Punktes soll aus dem zweiten Farbregister ge- 
nommen werden. Anfangs befindet sich dort immer die Farbe 
Schwarz, also wird der Punkt schwarz. 


Wenn Sie jetzt mit dem PSET-Befehl auch die restlichen ver- 
sprochenen 31 Farben auf den Bildschirm bringen wollen, wer- 
den Sie recht schnell auf Schwierigkeiten stoßen. Spätestens, 
wenn Sie das fünfte oder ein höheres Register ausprobieren, gibt 
der Computer eine Fehlermeldung aus. Woran liegt das? Nun, da 
man nicht immer alle Farben benötigt, spart der Amiga lieber 
Speicherplatz, indem man nicht auf jedem Screen 32 Farben be- 
nutzen kann. Denn je mehr Farben man benutzt, desto mehr 
Speicher benötigt man (Näheres dazu später). 


Also müssen wir erst einmal einen neuen Screen Öffnen (ein vom 
Computer erzeugter Bildschirm, der dann gleichzeitig mit dem 
Workbench-Screen besteht und hinter diesem versteckt ist oder 
diesen seinerseits bedeckt). Wenn man einen neuen Screen 
öffnet, kann man bestimmte Parameter wie Breite, Höhe, Modus 
und die Tiefe festlegen. Die Tiefe gibt an, wie viele Farben man 
verwenden kann. Als Tiefe kann man Werte zwischen I und 5, 
bei bestimmten Modi auch nur maximal 4 angeben. Die Anzahl 
der Farben errechnet man mit 2 hoch Tiefe. Mit dem Modus 
gibt man die Auflösung des Bildschirms an. Es gibt vier 
verschiedene Modi. 
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Modus Auflösung 
1 320*200 
2 640*200 
3 320*400 
4 640*400 


In den meisten unserer Programme werden wir den Modus eins 
benutzen. Breite und Höhe des Screens dürfen nicht über die 
Werte der Auflösung hinausgehen. 


Keine Ausgabe auf den Bildschirm geht direkt auf den Screen. 
Wenn wir den Bildschirm geöffnet haben, müssen wir noch ein 
Fenster öffnen. In diesem Fenster werden dann automatisch alle 
Texte und Grafiken ausgegeben. 


REM 32-Farben DEMO 


REM Screen oeffnen 

SCREEN 1,320,200,5,1 

REM Bildschirm oeffnen 

WINDOW 2,"Farbtopf",(0,0)-(311,185),16, 1 


FOR y= 0 TO 186 
FOR x= 0 TO 311 
PSET (x,y), (x+y) MOD 32 
NEXT x 
NEXT y 


WHILE INKEY$="": WEND 


REM beides wieder schliessen 
WINDOW CLOSE 2 
SCREEN CLOSE 1 


Auf dem Bildschirm sehen Sie alle 32 möglichen Farben. Am 
Programmende werden das Fenster und der neue Screen wieder 
geschlossen, denn sie werden nicht mehr gebraucht. 


Neben diesem recht anspruchslosen Farben-Demo können wir 
natürlich auch sehr wirkungsvolle Muster zeichnen lassen, z.B.: 
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REM Farbendemo 


SCREEN 1,320,200,5, 1 
WINDOW 2,"Farbdemo",(0,0)-(62,62),16, 1 


FOR m=0 TO 31 
FOR x=-m TO m 
FOR y=-m TO m 
PSET (31+x,31+y),C(ABS(x) AND ABS(Cy))+32-m) MOD 32 
NEXT y 
NEXT x 
NEXT m 


WHILE INKEY$="": WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


oder 


REM Pyramide 


SCREEN 1,320,200,5,1 
WINDOW 2,,(0,0)-(20,10),16, 1 


FOR y=0 TO 19 
FOR x=0 TO 19 
f1=ABS(x -10) 
f2=ABS(y -10) 
IF fi<f2 THEN SWAP f1,f2 
PSET (x,y),31-f1 
NEXT x 
NEXT y 


WHILE INKEY$="" : WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


1.1.4 Noch ein Wort zu PSET und PRESET 


Wir haben oben gesagt, daß PRESET die Punkte löscht, die 
PSET setzt. Das ist nur solange richtig, wie bei PRESET keine 


Farbangabe gemacht wird: 


PSET (100,100) 
PRESET (100,100) 
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Diese Zeilen entsprechen dem oben genannten Beispiel. Der 
Punkt wird gesetzt und sofort wieder gelöscht. 


Dagegen ist das Resultat der folgenden Zeilen ein weißer Punkt 
auf dem Bildschirm, der Punkt wird also nicht gelöscht: 


PSET (100,100), 1 
PRESET (100,100), 1 


Sobald ein Farbregister im Befehl genannt wird, sind beide 
Befehle gleich, und es ist Geschmackssache, welchen der beiden 
Befehle Sie verwenden. 


Statt die Punkte mit PRESET (x,y) zu löschen, kann man auch 
PSET (x,y),0 schreiben. Wieso gibt es aber überhaupt zwei prak- 
tisch gleiche Befehle? Die Default-Farbe (das ist die Farbe, in 
der die Punkte gezeichnet werden, wenn vom Benutzer keine 
Farbe genannt wird) von PSET entspricht immer der Vorder- 
grundfarbe, die von PRESET immer der Hintergrundfarbe. Das 
trifft auch zu, wenn die Hinter- oder Vordergrundfarbe geän- 
dert wird. Der Benutzer braucht sich also nicht um diese Werte 
zu kümmern, während er, wenn er PSET auch zum Löschen be- 
nutzt, sich die Hintergrundfarben selber merken muß. 


Außerdem erhöht die Verwendung von beiden Befehlen die 
Übersichtlichkeit im Programm. Man sieht sofort, wo Punkte 
gesetzt oder gelöscht werden. 


1.1.5 Die Umkehrung von PSET: Der POINT-Befehl 
Das Wort Umkehrung ist hier so zu verstehen, daß, statt Punkte 


zu setzen, abgefragt werden kann, ob ein Punkt gesetzt ist und 
welche Farbe er hat. Das macht nämlich der POINT-Befehl: 


PRINT POINT(x,y) 


Gibt entweder die Farbe an oder zeigt an, daß der Punkt (x,y) 
nicht im aktuellen Ausgabefenster liegt. Im ersten Fall wird das 
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entsprechende Farbregister angegeben, im zweiten ist das Ergeb- 
nis von POINT (x,y) gleich -1. 


Das nächste Programm erstellt Grafiken, die anfangs Ähnlich- 
keiten mit Schnittmustern oder Stadtplänen haben. Nach einer 
Weile ist das ganze Window ausgemalt, und diese Ähnlichkeiten 
verschwinden. Das Bild scheint schließlich aus zufällig gesetzten 
Punkten entstanden zu sein. 


REM Schnittmuster 


SCREEN 1,320,200,5,1 

WINDOW 2,,(0,0)-(80,80),16, 1 
RANDOMIZE TIMER 

x=40 

y=40 


Steigung: 

dx=INT (RND*5)-2 

dy=INT (RND*5)-2 

IF dx=0 AND dy=0 THEN Steigung 

IF ABS(dx)>ABS(dy) THEN 
st=ABS(dx) 

ELSE 
st=ABS(dy) 

END IF 


WHILE INKEY$=""" 
IF POINT (x+dx,y+dy)=-1 THEN Steigung 
FOR i= 1 TO st 
x=x+tdx/st 
y=y+dy/st 
PSET (x,y),POINT(x,y) MOD 31+1 
NEXT i 
WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Das Schema, nach dem dieses Bild aufgebaut wurde, ist recht 
einfach: Ein Punkt wandert über den Bildschirm. Dabei wird bei 
jedem Bildpunkt das Farbregister abgefragt und um eins erhöht. 
Stößt der wandernde Punkt an den Fensterrahmen, ändert er 
seine Richtung. 
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Beenden Sie das Programm, indem Sie eine beliebige Taste 
drücken. 


1.1.6 Relative Adressierung 


Bei PSET und fast allen noch folgenden Grafik-Befehlen des 
AmigaBASIC gibt es zwei unterschiedliche Adressierungsarten: 
Die erste läßt sich sehr gut mit Hausnummer und Straßennamen 
vergleichen. Wenn man sie auf einem Brief angibt, wird der 
Brief immer an der gewünschten Adresse ankommen. Dies ent- 
spricht der gebräuchlicheren Art, die wir bis jetzt ausschließlich 
in unseren Programmen verwendet haben: 


PSET (20,30) 


Die ‘Werte 20 und 30 sind die absoluten Koordinaten des zu set- 
zenden Punktes und entsprechen seiner Zeile und Spalte. Deshalb 
wird diese Adressierungsart "absolute Adressierung" genannt. 


Die zweite Adressierungsart nennt sich "relative Adressierung", 
denn die angegebenen Koordinaten geben noch nicht die Zeile 
und Spalte an. Im praktischen Leben tritt sie beispielsweise auf, 
wenn man jemandem den Weg beschreibt: "Gehen Sie drei 
Blocks geradeaus und biegen dann links ab...". Im Computer 
heißt es: Gehe von deinem Standpunkt drei Pixel nach rechts 
und zwei nach unten. Der Standpunkt ist dort, wo sich der 
Grafik-Cursor befindet; nämlich dort, wo zuletzt ein Punkt auf 
den Bildschirm ausgegeben wurde. Als Kennzeichnung für 
relative Adressierung wird das Wort STEP vor die Klammer 
gesetzt: 


PSET STEP (3,2) 


Leider kann man die Koordinaten des Grafik-Cursors nicht ab- 
fragen. Dafür kann man ihn aber sehr einfach setzen, ohne 
einen Punkt auf dem Bildschirm zu setzen. 


v=POINT (x,y) 
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Nach dieser Zeile befindet sich der Grafik-Cursor in Zeile y 
und Spalte x, denn der Cursor wird nicht nur beim Setzen von 
Punkten geändert, sondern auch bei der Abfrage. "v" ist eine be- 
liebige, aber unbenutzte Variable. 


Am Programmstart befindet sich der Grafik-Cursor immer in 
der Mitte des Ausgabefensters. 


Bei relativer Adressierung gibt man nicht immer den gleichen 
Punkt an, denn sobald sich der Grafik-Cursor bewegt, wird ein 
ganz anderer Punkt gesetzt. Dafür hat man aber, wenn man 
mehrere Punkte setzt, immer die gleichen Abstände zwischen 
den Punkten, unabhängig vom Grafik-Cursor. Das haben wir 
uns beim folgenden Programm zunutze gemacht. Das Programm 
gleicht unserem allerersten Programm, dem kleinen Malpro- 
gramm. Aber statt eines Punktes werden auf Tastendruck immer 
gleich mehrere Punkte gezeichnet. 


REM Relative Adressierung 
WHILE INKEY$S=11M 


IF MOUSE(O)<>O THEN 
x=MOUSE (1) 
y=MOUSE (2) 
PSET (x,y) 
PSET STEP (10,10) 
PSET STEP(-10,10) 
PSET STEP (-10,-10) 
PSET STEP (10,0) 
END IF 


WEND 
Der erste Punkt wird absolut angegeben. Die anderen vier 


Punkte werden relativ angegeben und haben deshalb immer den 
gleichen Abstand voneinander. 


1.2 Der LINE-Befehl 


Der LINE-Befehl bietet dem Benutzer zwei in der Schreibweise 
ähnliche, aber in ihren Auswirkungen vollkommen unterschied- 
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liche Möglichkeiten. Zum einen kann man, wie es der Name 
schon verrät, Linien zeichnen. Außerdem kann man mit ıhm 
aber auch Kästchen zeichnen. Letzteres stellt praktisch einen 
zweiten Befehl dar, und deshalb wird er später gesondert behan- 
delt. 


Die Syntax des LINE-Befehls ist ähnlich der von PSET. Aller- 
dings braucht man immer noch zwei Punkte, um eine Linie zu 
bestimmen. 


LINE (20,10)-(200,100),2 


Es wird dann eine schwarze (Farbregister 2) Linie vom Punkt 
(20,10) zum Punkt (200,100) gezeichnet. 


1.2.1 Der Moire-Effekt 


Immer, wenn mehrere Linien dicht nebeneinander oder über- 
einander gezeichnet werden, ist der Moire-Effekt auf dem 
Bildschirm zu beobachten. Mit ihm kann man erstaunliche Bilder 
konstruieren. Schauen Sie sich doch einmal die von diesem Pro- 
gramm erstellten Grafiken an. 


REM Moire-Gitter 
a=182 'groesse des quadrats 


FOR s=1 TO 10 
CLS 


FOR i=0 TO a STEP s 
LINE (140,1)-(140+2*a,i),2 
LINE (140,1)-(140+2*1,a),2 
LINE (140+2*a,a)-(140,1),2 
LINE (140+2*a,a)-(140+2*i,1),2 
NEXT i 


WHILE INKEY$="": WEND 


NEXT s 
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Es werden von zwei Ecken des Quadrats Linien an die jeweils 
gegenüberliegenden Seiten gezogen. Der Moire-Effekt entsteht 
in der Gegend der Verbindungslinie beider Ecken, denn dort 
werden viele Linien gezeichnet. 


Der Moire-Effekt tritt aber auch schon dann auf, wenn nur von 
einem Punkt Linien ausgehen. Diesen Effekt kann man noch 
verstärken, indem man die Linien abwechselnd in zwei verschie- 
denen Farben zeichnet: 


REM Moir&-Demo II 


xmax=618 "Groesse des Ausgabefensters 
ymax=186 


COLOR 1,2 "Hintergrund schwarz 

start: 

CLS 

xm=INTCRND*xmax) "Koordinaten des Mittelpunkts 
ym=INT(RND*ymax) 


FOR i=0 TO ymax 
LINE (xm,ym)-(0,i),i MOD 2+1 
LINE (xm,ym)-(xmax,i),i MOD 2+1 
NEXT i 
FOR i=0 TO xmax 
LINE (xm,ym)-(i,0),i MOD 2+1 
LINE (xm,ym)-(i,ymax),i MOD 2+1 
NEXT i 


WHILE INKEY$="": WEND 
GOTO start 
Wenn man sich die Grafik anschaut, die dieses Programm er- 


stellt, ist es nicht leicht zu erkennen, daß sie auf so einfache 
Weise entstanden ist. 


1.2.2 Quix, das Linienbündel 


Kommen wir doch noch einmal zur Geschwindigkeit des LINE- 
Befehls zurück: In diesem Programm lassen wir den Quix über 
den Bildschirm jagen. Der Quix besteht aus mehreren Linien, 
die alle mehr oder weniger parallel liegen. Die Bewegung des 
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Quix entsteht, weil Linien am Ende des Quix gelöscht werden 
und dafür vorne angefügt werden. Allerdings lassen sich Anfang 
und Ende des Quix schlecht bestimmen, denn die neuen Linien, 
die vorne angefügt werden, übernehmen die Koordinaten der 
zuvor gezeichneten Linie. Diese Koordinaten werden zufällig 
etwas verändert, wodurch sich ständig die Orientierung und die 
Länge der Linien verändern. 


REM Quix 


DEFINT a-z 

SCREEN 1,320,200,5,1 

WINDOW 2,"Quix’",(0,0)-(297,185),31, 1 
RANDOMIZE TIMER 


a=20 

DIM x(1,a),y(1,a) 
x(0,0)=150 
y(0,0)=100 
x(1,0)=170 
y(1,0)=100 


WHILE INKEY$="" 
FOR z=0 TO a 
LINE (x(0,z),yC0,z))-(xC1,z2),y(1,2)),0 


FOR i= O0 TO 1 
neux: x(i,z)J=ABS(xCi,alt)+RND*20-10) 
IF xCi,z)J>WINDOW(2) THEN neux 
neuy: y(Ci,z)=ABS(y(i,alt)+RND*20-10) 
IF yCi,z)>WINDOWC3) THEN neuy 
NEXT i 


f1=f1 MOD 31 +1 
LINE (x(0,z),y(0O,z))-(xl1,z),yC1,z)), fl 
alt=z 
NEXT z 
WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Während der Quix sich über den Bildschirm bewegt, kann man 
ihn einfangen, indem man mit der Maus auf das Größen-Gadget 
an der rechten unteren Ecke des Fensters zeigt und mit ge- 
drückter Maustaste die Maus verschiebt. Die Koordinaten des 
Quix können nie größer als die jeweilige Fenstergröße werden. 


28° D-————— Dasneue Supergrafikbuch —— 


Die Größe des aktuellen Ausgabefensters kann man mit WIN- 
DOW(2) (die Breite) und WINDOW(3) (für die Höhe) abfragen. 


1.2.3 Funktionsplotter 


Der Funktionsplotter ist eine der vielen mathematischen Anwen- 
dungen der Grafik. Er kann eine große Hilfe bei der Betrach- 
tung von Funktionen sein. Es macht aber auch Spaß, mit Para- 
metern und Funktionen zu experimentieren und nach interes- 
santen Kurven zu suchen. Dieser Funktionsplotter ist recht um- 
fangreich und bietet dem Benutzer sehr viel Komfort. Beispiels- 
weise braucht man sich nicht um die Funktionswerte zu küm- 
mern, denn die Kurve wird immer so gezeichnet, daß das 
Fenster in seiner vollen Höhe ausgenutzt wird. 


REM Funktionsplotter 


DEFDBL x,y,m,f 

DIM y(618) 'maximale Anzahl der Funktionswerte 
x1=-10: x2=10 'Wertebereich 

funktion=1 ıerste Funktion 

koordinaten=1 'Koordinatenkreuz an 


MENU 1,0,1,"Dienst" 

MENU 1,1,1,"Funktion zeichnen!" 
MENU 1,2,1,"Koordinateneingabe"" 
MENU 1,3,1,"Koordinatenkreuz aus" 
MENU 1,4,1,"Ende" 

MENU ON 


MENU 2,0,1,"Funktion!" 


DEF FNy1I(x)=SIN(Cx)/(x"2+1) 
a$l 1 )="y=sinx/(x”2+1)" 
MENU 2,1,1,3$(1) 


DEF FNy2(cx)=SINCx)*10-1/x+x"2 
a$(2)="y=sin(x)*10-1/x+x”2 
MENU 2,2,1,2a%(2) 


DEF FNy3Cx)=SINC1/x)/x 
a$g(3)="y=sin (1/x) /x" 
MENU 2,3,1,a%(3) 


DEF FNy4Cx)=(CEXP(x)-1)/CEXPCx)+1) 
a$l4 )="y=(e’x-1)/le’x+1)" " 
MENU 2,4,1,3$(4) 
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WINDOW 1, a$(1),,23 
GOSUB Rechnen 


Warte: SLEEP 
ON MENU GOSUB Verzweigung 
GOTO Warte 

Dienst: ON MENUC1) GOSUB Rechnen, Eingabe, Kreuz, Quit 
RETURN 


Verzweigung: ON MENU(O) GOTO Dienst 
funkt ion=MENUC1) 
. WINDOW 1, a$Cfunktion) 


Eingabe: WINDOW 2,"Koordinaten-Eingabe",(0,0)-(250,9),16 
INPUT "Anfangswert : ";x1 
INPUT "Endwert 5 
IF x2<x1 THEN SWAP x1,x2 
WINDOW CLOSE 2 


Rechnen: IF x1=x2 THEN Eingabe 
breite=WINDOW(2) 
WINDOW 2,'"Bitte Geduld! Ich rechne",(0,0)-(300,0),0 
min=O 
max=0 
ON ERROR GOTO Fehler 
FOR i=0 TO breite 
fwert=x1+(x2-x1)*i/breite 
ON funktion GOSUB F1,F2,F3,F4 
IF y(min)>y(i) THEN min=i 
IF y(Cmax)<y(i)OR y(max)=9999 THEN max=i 
Weiter: NEXT i 
| ON ERROR GOTO O0 
min=y(min) 
max=y(max) 
WINDOW CLOSE 2 
GOSUB Titel 
Zeichnen: CcLS 
hoehe = WINDOW(3)-8 
IF koordinaten=1 THEN 
IF min<=0 AND max=>0 THEN 
h=hoehe+min*hoehe/(max-min) 
LINE (0,h)-(breite,h),2 
END IF 
IF x1<=0 AND x2=>0 THEN 
b=-x1*breite/(x2-x1) 
LINE (b,0)-(b,hoehe),2 
END IF 
END IF 
IF min=max THEN ! Wenn min=max, dann zeichne eine 
Gerade" 
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Fehler: 


Fi: 
F2: 
F3: 
F4: 


Titel: 


Kreuz: 
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IF max=9999 THEN "' Funktionswert nicht definiert ' 
CLS 
ELSE 
LINE (O,hoehe/2)-(breite,hoehe/2) 
END IF 
END IF 
j=0 
WHILE (yCj)=9999 AND j<618) ' suche ersten definierten 
Funktiionswert' 
j=j+1 
WEND 
IF j=618 THEN RETURN 
PSET (j ,hoehe-(y( j)-min)*hoehe/(max-min)) 
FOR i=j+1 TO breite 
IF yCi)<>9999 THEN 
IF flag THEN 
PSET (i,hoehe-(yCi)-min)*hoehe/(max-min)) 
flag=0 
ELSE 
LINE -Ci,hoehe-(yCi)-min)*hoehe/(max-min)) 
END IF 
ELSE 
flag=1 
END IF 
NEXT i 
RETURN 


yCi)=9999 
RESUME Weiter 


yCi)=FNyi(fwert) 
RETURN 
yCi)=FNy2(fwert) 
RETURN 
yCi)=FNy3(fwert) 
RETURN 
yCi)=FNy4(Cfwert) 
RETURN 


MENU 3,0,1,MIDSCSTRSCX1),1,5)+<x<+MIDSCSTRSCX2), 1,5) 
MENU 4,0,1,MID$CSTR$CmIN), 1,5)+"<y<l+MIDSCSTRSCMax),1,5) 
RETURN 


IF koordinaten=1 THEN 
koordinaten=0 
MENU 1,3,1,"Koordinaten an’ 
ELSE 
koordinaten=1 
MENU 1,3,1,"Koordinaten aus" 
END IF 
GOTO Zeichnen 
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Quit: WINDOW 1,"plotter",(0,0)-(617,184),31 
MENU RESET 
END 


Vielleich fragen Sie sich, was der Funktionsplotter mit dem 
LINE-Befehl zu tun hat, da eine Funktion ja nicht aus Linien, 
sondern aus Punkten besteht. Unser Programm arbeitet so, daß 
es genau für jede Spalte einen Punkt errechnet. Häufig besteht 
zwischen benachbarten Punkten eine große Höhendifferenz. 
Wenn man nur diese Punkte zeichnen würde, könnte man kaum 
von einer Kurve sprechen, da die Punkte nicht immer miteinan- 
der verbunden wären. Die Verbindung schafft uns der LINE- 
Befehl. Er zeichnet also in so einem Fall nur fast senkrechte 
Linien. 


1.2.3.1 Funktionsweise und Menüsteuerung 


Das Programm besitzt zwei gewöhnliche und zwei Pseudo- 
Menüs. Letztere haben keine Unterpunkte und bestehen nur aus 
der Überschrift. Zweck dieser Menüs ist es, an den Benutzer 
Informationen zu übergeben. Das erste der beiden Pseudo-Menüs 
gibt die Grenzen des sichtbaren Ausschnitts der Kurve ın X- 
Richtung und das zweite den maximalen und minimalen dar- 
stellbaren Y-Wert des sichtbaren Funktionsteils an. Diese beiden 
Menüs erscheinen erst nach dem Zeichnen und ändern sich bei 
jeder Werteänderung entsprechend. 


Das erste der beiden gewöhnlichen Menüs mit dem Namen 
"Dienst" enthält vier Unterpunkte. Der erste Punkt zeichnet die 
Kurve neu. Man kann ihn aufrufen, wenn man die Größe des 
Fensters verändert hat. Außerdem kann ein neuer Wertebereich 
eingegeben, das Koordinatenkreuz sichtbar oder unsichtbar ge- 
macht und viertens das Programm beendet werden. 


Mit dem zweiten Menü kann der Benutzer zwischen vier ver- 
schiedenen mathematischen Funktionen wählen. Leider ist es mit 
BASIC nicht möglich, Funktionen vom Benutzer im Programm- 
Modus eingeben zu lassen. Dagegen ist es recht unkompliziert, 
vier Funktionen fest vorzugeben. Wenn Sie andere Funktionen 
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untersuchen möchten, brauchen Sie nur vor dem Programmstart 
die Funktionen am Anfang des Programms zu ändern. Außerdem 
sollten Sie auch den Text von a$(n) ändern. Dieser Text er- 
scheint im Menü und bildet den Window-Titel, wenn diese 
Funktion ausgewählt wurde. 


1.2.3.2 Scaling 


Der Benutzer kann durch Vergrößern oder Verkleinern direkt 
auf die Größe und das Format der Kurve einwirken. Wenn man 
die Größe des Fensters verstellt, wird die Kurve beim nächsten 
Zeichnen dementsprechend gestreckt oder gestaucht. 


Unter Scaling versteht man, daß die Kurve immer so dargestellt 
wird, daß das ganze Fenster ausgenutzt wird. Die Einheiten an 
x- und y-Achse sind nicht gleich, sondern hängen von dem 
Verhältnis von Höhe zu Breite ab. Durch die Streckung der 
Kurve können manchmal verwirrende Eindrücke über deren 
Verlauf entstehen. So wirkt z.B. eine fast gerade verlaufende 
Kurve viel steiler. 


Diese Darstellungsweise hat aber den Vorteil, daß der Benutzer 
sich weniger um den Kurvenverlauf kümmern muß. 


Nähere Auskünfte über die Kurve liefert, wie oben schon er- 
wähnt, die Menüleiste. 


1.2.4 Rechtecke zeichnen 


Wie oben schon angekündigt, kann man mit dem LINE-Befehl 
neben Linien auch Rechtecke zeichnen, und zwar mit einem 
einzigen LINE-Befehl. Die Schreibweise für beide Aufgaben des 
LINE-Befehls ist fast identisch. Sollen Kästchen gezeichnet 
werden, hängt man an den Befehl einfach ein ",B" an. 


LINE (20,10)-(200,100),2,B. 
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Diese Zeile zeichnet ein unausgefülltes schwarzes Rechteck auf 
den Bildschirm. Das erste Koordinatenpaar gibt die linke obere 
Ecke an, das zweite die rechte untere Ecke. Daraus sieht man 
leicht, daß man nur gleichmäßige Rechtecke mit zum Fenster- 
rahmen parallelen Seiten zeichnen kann. Aber gerade diese 
Rechtecke kann man sehr oft gebrauchen. 


Neben ungefüllten kann man auch ausgefüllte Rechtecke zeich- 
nen. Statt ",B" muß das Anhängsel ",BF" heißen. 


LINE (30,10)-(300,100),3,BF 


Wenn statt des Farbparameters eine Leerstelle angegeben wird, 
erscheint das Viereck in der Vordergrundfarbe. 


Auch bei diesem Befehl können wir wieder einmal einen kleinen 
Geschwindigkeitstest ausführen. Unser Testprogramm ähnelt 
dem DBoxes-Demo der Workbench. Es werden ausgefüllte 
Rechtecke mit zufälligen Farben und Koordinaten gezeichnet: 


REM Geschwindigkeitstest 
REM des LINE Befehls 


WHILE INKEY$=UN 

x=WINDOW(2) 

y=WINDOW(3) 

LINE CRND*x ,RND*y)-(RND*x ,RND*y),, INTCRND*4) ‚BF 
WEND 


Auch wenn dies nur ein ganz einfaches Programm ist, kann es 
doch begeistern und "Computer-Heiden" vom Amiga überzeugen. 
Die Geschwindigkeit, mit der die Rechtecke ausgefüllt werden, 
ist sehr hoch, sogar so hoch, daß man nicht mehr mitzählen 
kann, wie viele Fenster gemalt werden. Dabei handelt es sich ja 
nicht nur um kleine Rechtecke. Auch bei Rechtecken mit mehr 
als tausend Bildpunkten ist keine Zeitverzögerung zu erkennen. 
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1.2.5 Relative Adressierung beim LINE-Befehl 


Genau wie bei PSET lassen sich die Koordinaten beim LINE- 
Befehl relativ angeben, und zwar bei beiden Anwendungen. 


Bei relativer Adressierung erfolgt die erste Koordinatenangabe 
relativ zum Grafik-Cursor und die zweite relativ zum Anfangs- 
punkt der Linie. 


Es brauchen nicht beide Koordinaten relativ angegeben zu wer- 
den. Die folgende Zeile zeichnet eine Linie von (30,20) bis 
(20,120). 


LINE (30,20)- STEP(-10,100) 


Wenn man direkt von der Stelle, an der sich der Grafik-Cursor 
gerade befindet, weiter zeichnen möchte, kann man die erste 
Koordinatenangabe weglassen, wie beim folgenden Programm, 
das mehrere ineinander verschachtelte Quadrate ausgibt: 


REM Geschachtelte Vierecke 


SCREEN 1,320,200,2,1 
WINDOW 2,"'gedrehte Vierecke",(0,0)-(311,185),16 ‚1 


COLOR 2,1 

CLS 

d=5 ı Abstand (1-10) 

b=60 'Breite des ersten Vierecks 


FOR x=0 TO 311 STEP b 
FOR y=0 TO 185 STEP b 
xi1=x: x2=x+b 


yi=y: y2=y 
FOR a= 0 TO .7 STEP ATN(d/b) "a< PI/4 
IF C(x+y)/b)MOD 2=0 THEN 'Drehrichtung 


LINE (x1,y1)-(x2,y2) 
LINE -(2*x+b-x1,2*y+b-y1) 
LINE -(2*x+b-x2,2*y+b-y2) 
LINE -(x1,y1) 
ELSE 
LINE (2*x+b-x1,y1)-(2*x+b-x2,y2) 
LINE -(x1,2*y+b-y1) 
LINE -(x2,2*y+b-y2) 
LINE - (2*x+b-x1,y1) 
END IF 
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x1=x1+C0S(a)*d "Berechnung des naechsten Vierecks 
x2=x2-SIN(Ca)*d 
yi=y1+SIN(a)*d 
y2=y2+C0S(a)*d 
NEXT a 
NEXT y 
NEXT x 


WHILE INKEY$="": WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Wenn das Programm fertig ist, erkennt man die einzelnen 
Vierecke kaum noch. Sie sind in dem großen Muster aufgegan- 
gen. Der Effekt wird verstärkt, weil benachbarte Vierecke sich 
gegenläufig eindrehen. 


Nur bei der jeweils ersten Linie eines Quadrates oder einer an- 
deren geometrischen Figur müssen beide Koordinatenpaare an- 
gegeben werden. 


Beim LINE-Befehl gibt das hintere Koordinatenpaar bei beiden 
Anwendungen die Stelle an, an der sich nach dem Befehl der 
Grafik-Cursor befindet. Wenn man das beachtet, kann man 
Schreibarbeit sparen: Wird der LINE-Befehl zum Zeichnen von 
Kästchen benutzt, dann kann man jeweils die x- und die y- 
Koordinaten untereinander vertauschen. Damit kann man selbst 
bestimmen, an welchem der vier Eckpunkte sıch der Grafik- 
Cursor nach dem Zeichnen befindet. Das kann man für die re- 
latıve Adressierung ausnutzen. 


Das folgende Beispielprogramm zeichnet eine zufällige Balken- 
grafik, wie sie sehr häufig zu Statistikzwecken gebraucht wird. 
Unsere Balken sollen dreidimensional erscheinen. Deshalb zeich- 
nen wir um den Balken noch einen Schatten, begrenzt durch 
mehrere Linien. 


REM Balkengrafik 


RANDOMIZE TIMER 
SCREEN 1,320,200,4,1 
WINDOW 2,"Balkengrafik", ‚31,1 


382 Dasneue Supergrafikbuch —— 


FOR i=0 TO 7 
x=30+1*37 
y=INT(RND*160)+1 
LINE (x,180-y)-STEP(6,-6),i+1 
LINE -STEP (0,y),i+1 
LINE -STEP (-6,6),i+1 
LINE -STEP (-20,-y),i+1,bf 
LINE -STEP (6,-6),i+1 
LINE -STEP (20,0), i+1 
NEXT i 


WHILE INKEY$="": WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Außer dem ersten Koordinatenpaar jedes Balkens werden alle 
Koordinaten relativ angegeben, auch die des Kastens. Auf diese 
Weise braucht man selbst nur ganz wenig Koordinaten zu er- 
rechnen, was Zeit spart und die Übersicht fördert. 


1.3 Der CIRCLE-Befehl 


Bei einem Computer, der auch für professionelle Grafikanwen- 
dungen geeignet ist, darf im BASIC natürlich ein so elementarer 
Befehl wie CIRCLE nicht fehlen. 


In der Schule lernt man, daß man den Mittelpunkt und den Ra- 
dius braucht, um einen Kreis zu zeichnen. So ıst das auch beim 
AmigaBASIC. Probieren wir es aus: 


CIRCLE (200,100),100 


Fast genauso können wir auch farbige Kreise zeichnen. Den 
Wert für das Farbregister hängen wir einfach hinten an: 


CIRCLE (200,100),100,2 


Bei beiden Kreisen fallen uns zwei Dinge auf: 
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1. Die Figuren bilden häufig keine Kreise, sondern eher 
Ellipsen. 
2. Der Radius ist zumindest in der Höhe nicht gleich der 


Anzahl der Bildpunkte, denn dann dürfte bei einem Ra- 
dius von 100 der Kreis nicht mehr ganz im Fenster zu se- 
hen sein. 


Beide Punkte gehören natürlich zusammen und hängen von dem 
sogenannten Bildverhältnis ab. 


1.3.1 Das Bildverhältnis 


Sicher haben Sie schon mal an den Rädchen Ihres Monitors ge- 
dreht. Da gibt es hinten einen Regler, mit dem man die vertikale 
Höhe verstellen kann. (Wenn man auf die Rückwand guckt, ist 
es der dritte von rechts.) Mit diesem Regler könnten wir den 
ersten Punkt unserer Beobachtung beheben, was aber unter Um- 
ständen den Nachteil hat, daß nicht mehr das ganze Window auf 
dem Bildschirm zu sehen ist. Und außerdem erscheint spätestens, 
wenn Sie eine andere Bildschirmauflösung wählen, wieder ein 
"Ei" auf dem Bildschirm. 


Aber es geht auch anders. Denn man kann an den CIRCLE-Be- 
fehl einen Parameter übergeben, der das Verhältnis von Breite 
zu Höhe widerspiegelt, eben das Bildverhältnis. Und so wird’s 
gemacht: 


CIRCLE (100,100),100,,,,2 


Zwischen dem Radius und dem Bildverhältnis stehen vier Kom- 
mas, denn wir haben drei Werte ausgelassen: die Farbe, die wir 
schon erwähnt haben, und zwei Winkelangaben, denen wir uns 
erst später zuwenden wollen. 


Man muß das Bildverhältnis aber nicht nur dafür nutzen, einen 
perfekten Kreis zu zeichnen. Man kann natürlich auch gewollt 
Ellipsen formen, wie bei unserem nächsten Programm, das gleich 
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ganz viele Ellipsen und Kreise auf einmal auf den Bildschirm 
zeichnet. Die äußere Form der mit diesem Programm erzeugten 
Gebilde reicht vom Kreis über Karos zu vierzackigen Sternen. 
Alle Figuren sind mit mehreren Kreisbögen durchzogen: 


REM Ellipsen 


SCREEN 1,320,200,2,1 
WINDOW 2,,(0,0)-(311,185),16, 1 


FOR g= 0 TO 80 STEP 5 
CLS 
FOR f= „0001 TO 1 STEP .1 
CIRCLE (100,100),(80-g9*f),,,.f 
CIRCLE (100,100),(80-9*f),,,,1/f 
NEXT f 
WHILE INKEY$="": WEND 
NEXT g 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Bei diesem Programm haben wir den kleineren Bildschirm mit 
320*200 Punkten Auflösung gewählt, weil da das Bildverhältnis 
annähernd eins ist. Deswegen können die breiten, waagerechten 
Ellipsen fast genauso erzeugt werden wie die länglichen, 
horizontalen. Der einzige Unterschied besteht darin, daß das 
Bildverhältnis einmal gleich dem Wert f und damit kleiner als 
eins ist, und das zweite Mal gleich I/f und damit immer größer 
als eins ist. Die beiden Ellipsen, die bei einem Durchgang ge- 
zeichnet werden, sind deshalb auch bis auf ihre Orientierung 
identisch: Eine ist länglich, die andere breit. 


Das Bildverhältnis und der Radius hängen bei allen Figuren 
voneinander ab. Je größer der Wert f, desto runder werden die 
Kreise, und gleichzeitig wird auch der Radius kleiner. Um wie- 
viel der Radius kleiner wird, ist bei jeder Figur unterschiedlich. 


1.3.1.1 Animierte Grafik mit CIRCLE 


Das nächste Programm enthält einfache animierte Grafik. Es si- 
muliert einen springenden Ball auf dem Bildschirm. Bei jedem 


—— Grafikaufdem Amga ——— — 39 


Aufprall verformt sich der Ball leicht, als wäre er aus Gummi. 
Auf diese Weise bekommt er Schwung und springt wieder hoch. 


REM Springender Ball 


SCREEN 1,320,200,2,1 
WINDOW 2,,(0,0)-(100,100),16, 1 


WHILE INKEY$="" 
FOR i=0 TO 3.14 STEP .08 
f=1. 
y=70*SINCi) 
IF y<10 THEN f=.5+y/20 
CLS 
CIRCLE (50,100-y),20,1,,,f 
NEXT 
WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Das Bildverhältnis ist abhängig von der Höhe des Balles, die wir 
mit der Sinusfunktion errechnen. Wenn der Ball tiefer als der 
Radius des Kreises ist, wird f (das Bildverhältnis) verändert, und 
der Ball verformt sich. 


Das Prinzip unserer Animation ist einfach: Ein Kreis wird ge- 
zeichnet, dann ein neuer berechnet, und bevor der neue Kreis 
gezeichnet wird, wird der ganze Bildschirm gelöscht. Es ist we- 
sentlich unkomplizierter und schneller, den ganzen Bildschirm zu 
löschen, als den Kreis mit CIRCLE und Hintergrundfarbe zu 
übermalen. Wenn der ganze Bildschirm gelöscht wird, brauchen 
die Kreispunkte nicht erst errechnet zu werden, was schon ein- 
mal eine Menge Zeit spart. Außerdem übernimmt der sogenann- 
te Blitter, ein besonderer Grafik-Coprozessor, diese Arbeit, 
wenn wir CLS verwenden. Bildschirme zu löschen stellt ihn 
nicht vor allzu große Probleme. Er kann Flächen mit bis zu ei- 
ner Millionen Bildpunkten in nur einer Sekunde füllen, und bei 
uns sind es ja viel weniger. 
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Im nächsten Programm zeichnen wir eine Art Drahtmodell einer 
Schachfigur. Auf Tastendruck wird die Schachfigur um ihre 
Querachse gedreht. Sie werden die Figur sicher sofort erkennen, 
es ist die Dame. 


Auch beim CIRCLE-Befehl entsteht der Moire-Effekt, den wir 
schon beim LINE-Befehl kennengelernt haben und der immer 
auftritt, wenn mehrere Linien oder wie hier Kreisbögen 
zusammenfallen. 


REM Schachfigur 


FOR f=0 TO .5 STEP .05 
CLS 
READ I 
FOR i= 1 TOL 
READ a 
CIRCLE (320,150- 1*3*2*(.5-f)) ,a*2,2,,,f 
NEXT i 
RESTORE 
WHILE INKEY$="": WEND 
NEXT f 


REM dame 

DATA 39,31,29,29,31,26,23 

DATA 21,27,22,19,16 | 

DATA 14,13,13,12,12,12,11,11,11,11,22 
DATA 16,16,20,16,16 

DATA 17,18,19,21,23,26,29 

DATA 27,25,10,10,8 


Für die Drehung der Figur benutzen wir ausschließlich den 
CIRCLE-Befehl. Bei diesem Programm bestimmt f nicht nur das 
Bildverhältnis, sondern ist auch für die Höhe der Mittelpunkte 
der einzelnen Kreise zuständig. Anfangs sieht man die Figur 
ganz von der Seite. Je mehr die Dame von oben (oder von unten; 
ganz nach eigener Vorstellung) zu sehen ist, desto runder werden 
die Kreise und desto dichter fallen die Mittelpunkte zusammen. 


1.3.1.2 Das Bildverhältnis in der Kreisformel 


Für das Bildverhältnis ist der Wert 0.44 voreingestellt. Dieser 
Wert ist nur für Bildschirme mit einer Auflösung von 640*200 
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Punkten geeignet. Je nachdem, wie Sie Ihren Monitor eingestellt 
haben, malt CIRCLE Ihnen für diesen Wert Kreise oder Ellip- 
sen. Deshalb empfiehlt es sich, bei jedem Programm, das CIR- 
CLE-Anweisungen benutzt, am Programmanfang in einer Vari- 
ablen das Bildverhältnis festzusetzen und diese Variable an jeden 
CIRCLE-Befehl anzuhängen. Auf diese Weise kann man Pro- 
gramme schnell auf anders eingestellte Monitore angleichen. Man 
braucht ja nur die Variable am Programmbeginn zu verändern. 


Werte für das Bildverhältnis sollten zwischen 0 und 200 liegen. O0 
würde einen waagerechten Strich ergeben. Nach oben ist der 
Wertebereich zwar offen, aber der Wert 200 gibt meistens schon 
einen senkrechten Strich, also das Äquivalent zum Wert Null. 


Ist das Bildverhältnis kleiner als eins, dann sind die Strecken 
vom Mittelpunkt zum seitlichen Rand und der Radius immer 
gleich. Bei einem Wert größer eins ist diese Strecke kleiner als 
der Radius, dafür ist dıe Höhe gleich dem Radius. Bei eins sind 
sowohl Breite als auch Höhe gleich dem Radius. Wie weit die 
Kreispunkte bei anderen Werten tatsächlich an bestimmten Stel- 
len vom Mittelpunkt entfernt sind, kann man errechnen. 


Dafür muß man aber wissen, wie der CIRCLE-Befehl die 
Kreispunkte berechnet. Das folgende Programm ersetzt den 
CIRCLE-Befehl, und zwar mit allem, was wir bis jetzt von ihm 
kennengelernt haben. Es ist aber in BASIC und deshalb lang- 
samer, aber dafür versteht man so den Ursprung des Bildver- 
hältnisses: 


REM Simulation des CIRCLE-Befehls 


CIRCLE (130,100),100,2,,,-2 
CALL kreis (130! ,100!,100!,1!,.2) 
END 


SUB kreis (mx,my,radius,farbe,f) STATIC 
FOR w=0 TO 2*3.1415296# STEP .01 
IF f<1 THEN 
x=C0S(w)*radius 
y=- f*SINCw)*radius 
ELSE 
x=C0S(w)*radius/f 
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y=-SIN(w)*radius 
END IF 
PSET (mx+x,my+y), farbe 
NEXT w 
END SUB 


Natürlich wollen wir den CIRCLE-Befehl nicht auf Dauer er- 
setzen. Mit diesem Programm wollen wir nur zeigen, wo das 
Bildverhältnis in der Formel auftaucht. Es ist der Faktor, mit 
dem der x-Wert (für f kleiner eins) multipliziert oder durch den 
der y-Wert geteilt wird, wenn f größer als eins ist. Wenn wir das 
wissen, können wir genau errechnen, wie weit ein beliebiger 
Kreispunkt vom Mittelpunkt entfernt ist. Das folgende Pro- 
gramm nimmt uns diese Arbeit ab. Auf diese Weise werden 
Speichen in den Kreis gezeichnet. 


REM Speichen zeichnen 


CIRCLE (200,100),100,2,,,-2 
x1=200 
y1=100 
FOR winkel= 0 TO 6 STEP .5 
x=x1 
y=yl 
CALL koordinaten (x,y,100! ‚winkel, .2) 
LINE (x1,y1)-(x,y) 
NEXT winkel 
END 


SUB koordinaten (mx,my,radius,w,f) STATIC 
IF f<1 THEN 
mx=mx+COS(w)*radius 
my=my- f*SIN(w)*radius 
ELSE 
mx=mx+COS(w)*radius/f 
myzmy-SINCw)*radius 
END IF 
END SUB 


Die Berechnungen der Schnittpunkte mit dem Kreis führt das 
Unterprogramm aus. Die errechneten Werte werden dann an das 
Hauptprogramm zurückgegeben. Das gleiche Unterprogramm 
können Sie für alle Kreise benutzen, denn alle wichtigen Para- 
meter werden an das Unterprogramm übergeben. Der Punkt, den 
man errechnen will, wird durch einen Winkel bestimmt, den 
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man ebenfalls übergeben muß. In unserem Beispielprogramm 
werden zwölf Winkel zwischen 0 und 6, was etwa dem Umfang 
eines Kreises entspricht, berechnet. Die berechneten Werte ste- 
hen nach dem Aufruf in den Variablen, mit denen man den 
Kreismittelpunkt an das Unterprogramm übergeben hat. 


1.3.2 Die Winkel des CIRCLE-Befehls 


Als nächstes wollen wir die beiden noch fehlenden Parameter 
der CIRCLE-Anweisung erklären. Mit diesen beiden Parametern 
kann man bestimmen, daß nur ein Ausschnitt des Kreises ge- 
zeichnet wird. Der erste Wert gibt den Winkel an, mit dem der 
Kreisausschnitt anfängt, und der zweite seinen Endwert. Es wird 
immer im mathematisch-positiven Sinn, also gegen den Uhrzei- 
gersinn gezeichnet. Wenn alle Parameter angegeben werden, sieht 
der CIRCLE-Befehl folgendermaßen aus: 


CIRCLE (mx,my),radius, farbe,start,ende,Bildverh 


Wenn man zwei CIRCLE-Befehle mit entgegengesetzten Start- 
und Endwerten und ansonsten gleichen Werten aufruft, dann 
wird ein ganzer Kreis gezeichnet. 


Wie man dem BASIC-Handbuch entnehmen kann, sind bei der 
CIRCLE-Anweisung Anfangs- und Endwinkel zwischen -2*PI 
und 2*PI erlaubt. Aus dem Mathematikunterricht wissen Sie 
vielleicht noch, daß im Bogengrad 2*PI genau eine volle Kreis- 
umdrehung bedeutet. Jetzt könnte man auf die Idee kommen, 
der Computer zeichnet bei Angabe der beiden Maximalwerte 
(-2*PI und +2*PI) zwei volle Kreisumdrehungen. Das ist zwar 
mathematisch logisch, hier aber falsch. Das Minuszeichen vor ei- 
ner Zahl hat keine mathematische, sondern eine technische Be- 
deutung. Steht vor dem Anfangswinkel ein Minuszeichen, wird 
zusätzlich zu dem angegebenen Kreisbogen eine Linie vom 
Kreismittelpunkt bis zum Anfang des Kreisbogens gezeichnet; 
bei negativem Endwinkel wird entsprechend eine Linie zum 
Ende des Kreisbogens gezeichnet. 
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Negativ bedeutet kleiner als null. Auch wenn man vor die Null 
ein Minuszeichen setzt, ist sie nicht negativ. Um bei einem Win- 
kel von 0 Grad eine Linie zu zeichnen, muß man statt dessen 
den Wert -0.0001 einsetzen. Dieser Wert verkleinert den Winkel 
nicht merklich, reicht aber aus, den Computer zu veranlassen, 
das Gewünschte auszuführen. 


1.3.3 Relative Adressierung 


Auch beim CIRCLE-Befehl gibt es die relative Adressierung. 
Wenn man mit relativer Adressierung Kreise zeichnet, bildet der 
Grafik-Cursor den Mittelpunkt des Kreises. Und im Gegensatz 
zu PSET und LINE wird der Grafikcursor nach dem Zeichnen 
der Kreise nicht an die Stelle gesetzt, an der der letzte Punkt 
gezeichnet wurde, sondern immer an den Mittelpunkt des 
Kreises. 


1.3.4 Tortengrafik 


Sicher haben Sie schon einmal eine Tortengrafik gesehen; sie ge- 
hört zu den Präsentationsgrafiken und ist gut geeignet, Zahlen- 
verhältnisse anschaulich zu machen. Beispielsweise wird oft in 
Tortengrafiken angegeben, wer nach einer Wahl wie viele Sitze 
erhält. Die Torte symbolisiert die Gesamtheit aller möglichen 
Sitze. Die Sitze einer Partei sind dann "Kuchenstücke" ın den 
Farben der jeweiligen Partei. 


Selbstverständliich kann man Tortengrafiken auch auf dem 
Amiga erstellen. Unser Programm zeichnet sie fast wie die Tor- 
tengrafiken aus den Wahlsendungen: farbig und dreidimensional. 


REM Tortengrafik 


SCREEN 1,320,200,5, 1 
WINDOW 2,"Tortengrafik",,, 1 


f=.3 
pi=3.141529 
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start: 
CLS 


summe=0 
INPUT "Wieviel Werte ";n 


IF n<2 THEN 
CLS 
PRINT "Demoprogramm" 
n=INT(CRNDC1)*10)+3 
DIM wert(n), farbe(n) 


FOR i=1 TOn 
wert(Ci)=RND(C1)*20+1 
farbe(i)J=INTCRNDC1)*31) 
summe=summe+wert(i) 

NEXT i 

ELSE 

DIM wert(n), farbe(n) 

FOR i=1 Ton 
wert(i)=1 
PRINT i". Wert"; 

INPUT wert(i) 
INPUT "Farbe ";farbe(i) 
farbe(i)=farbe(i) MOD 32 
' Summe=summe+wert(i) 
NEXT i 
CLS 
END IF 


REM Tortengrafik zeichnen 
mx=WINDOW(2)/2 

my=WINDOW(3)/2 

w1=0 

radius=mx -10 

CIRCLE (mx,my+20),radius,1,pi,2*pi,f 
LINE (mx-radius,my)- (mx-radius ,‚my+20) 
LINE (mx+radius,my)- (mx+radius ‚my+20) 
LINE (mx,my)-(mx+tradius,my) 


FOR i=1 TOn 
w2=w1+2*pi*wert(i)/summe 
CIRCLE (mx,my),radius,1,-w1,-w2 ‚f 
REM Segment faerben 
x=C0S(wi+lw2-w1)/2)*radius/2 
y=- F*rSINCw1+Cw2-w1)/2)*radius/2 


—=PAINT STEP(x,y),farbe(i),1 


IF w2>pi THEN 
REM Seitenstriche zeichnen 
x=C0S(w2)*radius 
y=- f*SINCw2)*radius 
LINE (mx+x,my+y)- (mx+x ‚my+y+20) 
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REM Seitenbereiche Faerben 
IF w2-.1>pi THEN 
x=C0S(w2-.1)*radius 
y=- f*SIN(w2-.1)*radius 
PAINT (mx+x,my+y+18),farbe(i), 1 
END IF 
END IF 
wi=w2 
NEXT i 


INPUT "Neue Grafik ";a$ 
ERASE wert, farbe 
IF a$<>"n! THEN start 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Dieses Programm bietet Ihnen die Möglichkeit, eine Tortengrafik 
mit zufälligen Werten zu bestaunen oder selbst Werte einzuge- 
ben. Das Demonstrationsprogramm wird gestartet, wenn Sie bei 
der Frage nach der Anzahl der Werte eine Null eingeben. Wenn 
Sie selbst Werte eingeben, können Sie zusätzlich eine von 32 
Farben zu jedem Wert eingeben. 


Jedes Segment der Torte wird einzeln gezeichnet. Wie man 
Kreissegmente zeichnet, haben wir oben schon angedeutet. Alles, 
was man braucht, um statt des vollen Kreises nur ein Segment 
zu zeichnen, sind ein Anfangs- und ein Endwinkel. Vor beide 
Winkel setzen wir dann noch ein Minuszeichen. Auf diese Weise 
werden der erste und letzte Punkt des Kreisbogens mit dem 
Mittelpunkt durch eine Linie verbunden. 


Um die Farbe ins Segment zu bringen, bedarf es schon etwas 
mehr Aufwand. Flächen zu färben ist in der Regel recht ein- 
fach. Man braucht nur eine begrenzte Fläche und einen Punkt in 
dieser Fläche, dann kann man mit PAINT die Fläche füllen. Die 
erste Bedingung haben wir erfüllt, als wir das Kreissegment 
gezeichnet haben. Um die zweite Bedingung zu erfüllen, bedie- 
nen wir uns der Formel des Kreises, mit der wir auch schon das 
Bildverhältnis erklärt haben. Den Mittelpunkt eines Segments 
kann man dann folgendermaßen berechnen: 
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x=COS(W1+CW2-W1)/2)*RADIUS/2 
y=- f*SINCWI+CW2-W1)/2)*RADIUS/2 


In dieser Formel ist WI der Anfangs-, W2 der Endwinkel und f 
das Bildverhältnis, das bei uns immer kleiner als eins ist. X und 
Y sind keine absoluten Bildschirmkoordinaten, sondern relativ 
zum Kreismittelpunkt, so daß wir mit der folgenden Zeile und 
den errechneten Werten das Segment füllen können: 


PAINT STEP (X,Y),farbeci),1 


Die Variable farbe(i) enthält die Farbe, mit der das Segment 
gefüllt werden soll. Die 1 dahinter bedeutet, daß die Fläche 
durch weiße Punkte begrenzt wird. 


Die Formel zum Errechnen der Mittelpunkte wird in etwas ab- 
gewandelter Form in diesem Programm noch einmal benötigt, 
nämlich um den Rand der Torte zu unterteilen und zu färben. 


1.3.5 Punkte und Linien mit CIRCLE 


So unsinnig das auch klingen mag, neben Ellipsen und Kreisen 
kann man auch Punkte und Linien mit CIRCLE zeichnen. Und 
zwar nicht nur die Linien, die sich ergeben, wenn man das 
Bildverhältnis auf O0 setzt, wie wir es oben schon gesehen haben. 
Wir meinen auch nicht die Punkte, die der Computer beim Ra- 
dius null zeichnen würde. Diese beiden Sonderfälle sind nämlich 
ohne praktischen Nutzen. Um wirklich sinnvolle Linien und 
Punkte zu zeichnen, muß man die Winkelangaben manipulieren. 


Punkte erzeugt man, indem man den Anfangswinkel gleich dem 
Endwinkel setzt. Linien erhält man, wenn beide Winkel betrags- 
gleich, aber einer von beiden negativ ist. Die Entfernung der 
Punkte vom "Mittelpunkt" und die Länge der Linien werden 
durch den Radius und das Bildverhältnis bestimmt. 


Linien auf diese Art zu zeichnen, das ist in bestimmten Fällen 
recht nützlich, denn es reichen ein Punkt, die Länge und der 
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Winkel einer Geraden aus, um eine Linie zu zeichnen. Beim 
LINE-Befehl bräuchte man zwei Punkte und müßte deshalb erst 
Linie und Winkel in einen zweiten Punkt umrechnen. 


Der Vorteil dieser etwas unkonventionellen Art wird recht gut 
im folgenden Programm deutlich. Es ist eine Analoguhr, die nur 
mit dem CIRCLE-Befehl gezeichnet wird und sonst keinen an- 
deren Grafik-Befehl enthält. Dadurch, daß die Koordinaten der 
Zeiger und der Einheiten nicht vom Programm ausgerechnet 
werden müssen, spart man viel Rechenaufwand und -zeit. 


REM Analoguhr 


pi=3.1415926# 
f=.5 t Bildverhaeltnis ' 


REM Kreis Zeichenen 
CIRCLE (100,100),100,1,,,f 


REM Punkte fuer Minuten 

FOR i=.0001 TO 2*pi STEP pi/30 
CIRCLE (100,100),97,1,i,i,f 
NEXT i 


REM Punkte fuer Stunden 

FOR i=.0001 TO 2*pi STEP pi/6 
CIRCLE (100,100),93,1,i,i,f 
CIRCLE (100,100),90,1,i,i,f 
NEXT i 


st: INPUT "Stunden ";stunden 
IF stunden >12 GOTO st 
INPUT "Minuten ";minuten 


swinkel=-((12-stunden)*60-minuten)*pi/360-pi/2.0001 
mwinkel=-(60-minuten)*pi/30-pi/2.0001 

IF swinkel<-2*pi THEN swinkel=swinkel+2*pi 

IF minkel<-2*pi THEN mwinkelzmwinkel+2*pi 


REM Zeiger 
CIRCLE (100,100),85,2,mmwinkel ,-mwinkel, f 
CIRCLE (100,100),70,3,swinkel ,-swinkel, f 


ON TIMER(60) GOSUB Zeit 
TIMER ON 


WHILE 1:WEND 
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Zeit: 

REM Alte Zeiger loeschen 

CIRCLE (100,100),70,0,swinkel, -swinkel, f 
CIRCLE (100,100),85,0,mwinkel,-mwinkel, f 
swinkel=swinkel+pi/360 
mwinkelzmwinkel+pi/30 

IF swinkel>0 THEN swinkel=swinkel-2*pi 
IF mwinkel>0 THEN mwinkelzmminkel -2*pi 
REM Neue Zeiger 

CIRCLE (100,100),85,2,mminkel,-mminkel, f 
CIRCLE (100,100),70,3,swinkel, -swinkel, f 
RETURN 


Die im Programm verwendeten TIMER-Befehle sorgen dafür, 
daß jede Minute zum Unterprogramm gesprungen wird. Mit 
diesen Befehlen kann man die Interrupt-Programmierung 
nachvollziehen, die mancher vielleicht noch von den Homecom- 
putern kennt. Diese Art ist wesentlich komfortabler als die her- 
kömmliche Interrupt-Programmierung, denn Interrupt-Program- 
me werden beim Amiga in BASIC geschrieben. 


Statt der Endlosschleife WHILE1:WEND kann man auch ein 
beliebiges anderes Hauptprogramm einfügen. Für diesen Fall ist 
es zweckmäßig, die Uhr in ein eigenes Fenster zu verbannen. 


1.4 Flächen füllen 


Inzwischen haben wir schon mehrere Arten kennengelernt, um 
Flächen auszumalen. Zuerst war da der LINE-Befehl, mit dem 
man ziemlich schnell farbige Rechtecke auf den Bildschirm 
bringen kann. 


Der CIRCLE-Befehl hatte keine eingebaute Füllfunktion. Des- 
halb hatten wir dort etwas vorweggegriffen und den PAINT- 
Befehl eingeführt. Diesen Befehl wollen wir jetzt noch einmal 
genauer betrachten. 
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1.4.1 Der PAINT-Befehl 


Paint bedeutet malen, und das ist alles, was der PAINT-Befehl 
macht. Aber dafür erledigt er diese Aufgabe schnell. Auch seine 
Handhabung ist einfach. Man gibt einen Punkt in der zu füllen- 
den Fläche und die Farbe an, in der gefüllt werden soll. Wenn 
Rahmenfarbe und Füllfarbe der Fläche nicht gleich sind, gibt 
man als letztes auch noch die Rahmenfarbe an. Die Rahmen- 
farbe gibt die Farbe an, die der Computer dann als Begrenzung 
sieht. Der Punkt kann sowohl absolut als auch relativ adressiert 
werden. Relative Adressierung hat besonders dann Vorteile, 
wenn man ganze Kreise füllen will. Denn nach dem CIRCLE- 
Befehl befindet sich der Grafik-Cursor automatisch am Kreis- 
mittelpunkt. Im folgenden Programm sieht man, wie einfach 
dadurch das Färben von Kreisen ist. 


REM Fuelldemo 


SCREEN 1,320,200,5,1 
WINDOW 2,,(0,0)-(311,185),16,1 
RANDOMIZE TIMER 


WHILE INKEY$="" 
f=INT(CRND*32) 
CIRCLE (RND*311,RND*185) ,RND*100, f 
PAINT STEP (0,0), f 

WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Dieses Programm wirkt lange nicht so schnell wie das entspre- 
chende Programm mit Kästchen und dem LINE-Befehl. Das 
liegt zum einen am CIRCLE-Befehl. Aber auch der PAINT-Be- 
fehl ist langsamer als etwa der LINE-Befehl mit seiner Käst- 
chenfüllfunktion. Denn schließlich muß beim PAINT-Befehl 
auch bei jedem Punkt abgefragt werden, ob er einen Rand bil- 
det (also die Farbe hat, die als Rahmenfarbe angegeben wurde) 
oder ob er einfach gefärbt werden kann. 


Bei der PAINT-Anweisung muß man mit Vorsicht arbeiten. 
Wenn auch nur ein "Loch" in der Begrenzung der Fläche ist, 
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‚färbt sich unter Umständen der ganze Bildschirm, und die ganze 
Grafik ist praktisch vernichtet. Ähnliches passiert auch, wenn 
der Typ eines Fensters (siehe Handbuch), den man beim Öffnen 
festlegt, kleiner als 16 ist. Dann wird immer dann, dann wenn 
die Fläche über den rechten Bildschirmrand hinausragt, der 
ganze Bildschirm mit der Füllfarbe gefärbt. Wenn Sie es auspro- 
bieren möchten, brauchen Sie nur im WINDOW-Befehl des 
letzten Programms die 16 durch eine O0 zu ersetzen. 


1.4.2  Der.dritte Weg: AREA und AREAFILL 


Neben LINE und PAINT gibt es noch eine dritte Möglichkeit, 
Flächen zu füllen. Im Gegensatz zur PAINT-Anweisung sind 
hierfür keine durchgezogenen Grenzen, sondern nur einzelne 
Punkte als Eckpunkte der Fläche notwendig. 


Dieser dritte Weg besteht aus zwei Befehlen. Mit dem ersten 
Befehl setzt man alle Eckpunkte. Dieser Befehl ist noch einfa- 
cher als der PSET-Befehl, denn er braucht nicht einmal eine 
Farbkennung: 


AREA (10,30) 
AREA (199,140) 
AREA STEP (200, -30) 


Wie man sieht, kann man den AREA-Befehl auch relativ be- 
nutzen. 


Mit einem zweiten Befehl teilt man dem Computer mit, daß er 
die begrenzte Fläche ausmalen soll: 


AREAFILL 


Nachdem wir alle vier Befehle eingetippt haben, wird ein weißes 
Dreieck auf den Bildschirm gemalt. Ein Dreieck zeigt nicht un- 
bedingt die Stärken dieses Befehlspaares. Die Stärken liegen in 
Figuren mit viel mehr Eckpunkten. 
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Entscheidend für das Aussehen der Fläche ıst die Reihenfolge, 
in der die Punkte angegeben werden. Bei nur drei Punkten spielt 
das noch keine Rolle, aber schon bei vier Punkten gibt es drei 
verschiedene Figuren für dieselben Koordinaten. 


REM drei moegliche 


AREA (10,10) 

AREA (30,140) 

AREA (60,100) 

AREA (50,20) 

AREAFILL 

WHILE INKEY$="": WEND 
CLS 


AREA (10,10) 
AREA (60,100) 
AREA (50,20) 
AREA (30,140) 
AREAFILL 


WHILE INKEY$="":WEND 
CLS 


AREA (10,10) 
AREA(60, 100) 
AREA(30, 140) 
AREA(50, 20) 
AREAFILL 


Bei noch mehr Ecken nimmt die Anzahl der Verbindungsmög- 
lichkeiten noch zu. Hier haben wir auch gleich ein Beispiel. Wir 
haben einen Drudenfuß gebildet. Ein Drudenfuß hat fünf 
Zacken und kann mit einem Stift in einem Zug gemalt werden. 


AREA (100,20) 
AREA (140,100) 
AREA (20 ‚45) 
AREA (180,40) 
AREA (40,110) 


AREAFILL 


Wenn man sich den entstandenen Stern anguckt, fällt auf, daß 
nur die Zacken weiß, die Mitte aber blau geblieben ist. Wie 
kommt’s? Zur Erklärung nehmen wir noch einmal unser Drei- 
eckprogramm und ergänzen es ein wenig: 
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REM Rahmen durch zweimaliges Zeichnen 


FOR i=0 TO 3 

AREA (10,30) 

AREA (199,140) 

AREA STEP (200, -30) 
NEXT 

AREAFILL 


Durch die Änderungen wird jeder Eckpunkt zweimal gesetzt, so 
daß die gleiche Fläche mit einem AREAFILL-Befehl zweimal 
ausgemalt wird. Man könnte meinen, doppelt malt besser, aber 
so ist es nicht. Statt einer gefüllten Fläche ist nämlich nur der 
Rahmen zu sehen. 


Beim Drudenfuß ist es ähnlich. Wie das Dreieck, so ist die Mitte 
auch zweifach eingeschlossen und wird deshalb zweimal, was 
gleichbedeutend mit gar nicht ist, ausgefüllt. 


Bei nur fünf Ecken sehen die entstandenen Figuren noch recht 
unkompliziert aus. Dagegen kann man bei neunzehn Ecken häu- 
fig kaum noch alle Eckpunkte entdecken. Die Bilder, die entste- 
hen, wenn man alle Punkte zufällig bestimmt, könnte man fast 
schon als moderne Kunst verkaufen: 


REM 19 Ecken 
RANDOMIZE TIMER 


FOR i= 0 TO 18 
AREA (RND*611,RND*185) 
NEXT i 


AREAFILL 


WHILE INKEY$="" :WEND 
RUN 


Neunzehn Eckpunkte sind das Maximum, das AREAFILL ver- 
arbeiten kann. Wenn man versucht, mehr als neunzehn Eck- 
punkte zu setzen, wird überhaupt keine Fläche auf den Bild- 
schirm gezeichnet. Nach AREAFILL sind alle Eckpunkte aus 
dem Speicher gelöscht, und man kann neue Eckpunkte bestim- 
men. 
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1.4.2.1 Verschiedene Modi bei AREAFILL 


AREAFILL hat zwei verschiedene Modi. Den ersten haben Sie 
schon kennengelernt, denn wir haben die ganze Zeit mit ihm 
gearbeitet. Bei diesem Modus wird die Fläche immer in der ak- 
tuellen Vordergrundfarbe gefüllt. Diese Farbe ıst mit weiß 
voreingestellt. Man kann sie mit dem COLOR-Befehl verändern: 


COLOR 2 


Nach diesem Befehl wird die nächste Fläche schwarz gezeichnet. 
Dieses ist die einzige Methode, um auf die Farbe der Fläche di- 
rekt Einfluß zu nehmen. Diesen Modus braucht man nicht be- 
sonders zu kennzeichnen, denn es ıst der Normalmodus. Man 
kann ihn aber durch die Ziffer Null kenzeichnen: 


AREAFILL 0 


Der zweite Modus bietet etwas ganz Besonderes. Hier werden die 
Flächen nicht ausgefüllt, sondern jeder Punkt der Fläche wird 
invertiert. 


REM Invertierdemo 


PRINT "Dies ist ein Test!!!" 
PRINT "Alle Punkte innerhalb" 
PRINT "des Dreicks werden!" 
PRINT "invertiert, jawoll!!“ 
CIRCLE (100,100),90,2 

PAINT STEP (0,0),3,2 


AREA (20 ‚0) 
AREA (180,45) 
AREA (40,100) 
AREAFILL 1 


Diesen Modus kennzeichnet man mit einer Eins hinter dem 
AREAFILL-Befehl. Was bedeutet denn eigentlich Invertieren? 
Jeder Punkt auf dem Bildschirm wird durch eine Bitfolge im 
Speicher repräsentiert, die sein Farbregister angibt. Wenn ein 
Punkt invertiert wird, bedeutet das, daß jedes Bit seiner Bitfolge 
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einzeln "umgedreht" wird. Ist ein Bit vorher eins, wird es hinter- 
her null und umgekehrt. Wie sich das Farbregister eines Punktes 
ändert, kann man so ausrechnen: 


neueFarbe=(2’Tiefe-1)-alteFarbe 


Die Geschwindigkeit, mit der diese Umkehrung vor sich geht, 
ist enorm, was man auch an folgendem Programm erkennen 
kann: 


REM Geschwindigkeit 


LOCATE 10,4 
PRINT "Geschwindigkeit ist keine Hexerei" 


WHILE INKEY$="" 


FOR i= 0 TO 2 

AREA (RND*611,RND*185) 
NEXT i 
AREAFILL 1 


WEND 


Das Programm bestimmt zufällige Eckpunkte eines Dreiecks und 
invertiert alles, was innerhalb dieses Dreiecks liegt. Dieser Vor- 
gang wiederholt sich immer und immer wieder. Dabei kommt es 
sehr häufig zu Überlagerungen von Dreiecken und damit von 
blauen und orangefarbigen Stellen. Dadurch ist schon nach kur- 
zer Zeit der ganze Bildschirm orange und blau gescheckt. Je län- 
ger das Programm läuft, desto weniger Struktur ist in den 
Flecken zu erkennen. 


1.4.3 Muster 


Wenn Computer eine Fläche füllen, setzen sie einen Punkt neben 
den anderen, bis alle Punkte der Fläche die gewünschte Farbe 
haben. So kann es der Amiga auch, wie wir in den zahlreichen 
Beispielen schon gesehen haben. Er kann aber noch mehr. Man 
kann ıhn dazu veranlassen, Flächen nach selbstdefinierten 
Mustern zu füllen. 
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Muster können die Grafik verschönern oder bestimmte Dinge 
verdeutlichen oder hervorheben. Man kann mit Mustern Schatten 
andeuten oder sehr einfach eine Mauer "bauen". 


Neben gemusterten Flächen kann man auch gemusterte Linien 
erzeugen. Beide Muster werden mit ein und demselben Befehl 
definiert. Da die Muster für Linien und Flächen etwa gleich 
aufgebaut werden, erklären wir die Methode erst einmal für 
Linien. 


1.4.3.1 Aufbau der Muster 


Das Muster einer Linie wird mit einer sogenannten 16-Bit- 
Maske festgelegt. Eine 16-Bit-Maske besteht aus einer Zah- 
lenfolge von 16 Binärzahlen (nur Nullen und Einsen). Jede Eins 
in dieser Maske entspricht einem gesetzten Punkt in der Linie, 
eine Null einer Leerstelle. Nach sechzehn Punkten fängt es bei 
dem ersten Punkt der Maske wieder an. Die Maske ist vergleich-. 
bar mit einer Zeichenschablone. Nur dort, wo Löcher sind, kann 
auch gemalt werden. | 


Da AmigaBASIC keine Binärzahlen verarbeiten kann, muß die 
Binärfolge der Maske in hexadezimale Zahlen umgerechnet wer- 
den. Man könnte die Binärzahlen auch in dezimale Zahlen um- 
wandeln, was wesentlich komplizierter ist. Zur Umrechnung in 
Hexzahlen faßt man immer vier Bits zu einem Block zusammen. 
Unsere Maske könnte dann so aussehen: 


1011 0010 0000 1111 


Jeder Block wird nun einzeln umgerechnet. Dafür nimmt man 
den Wert des ersten Bits des Blocks und multipliziert ihn mit 8. 
Dazu addiert man das zweite Bit, multipliziert mit 4, das 3 Bit 
mit 2 malgenommen und das letzte Bit einfach. Das Ergebnis 
dieser Operationen liegt zwischen 0 und 15. Statt der Zahlen 
zehn bis 15 schreibt man im Hexadezimalen die Buchstaben A 
bis F. Bei unserer Beispielsmaske sieht das so aus: 
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1*8 + 0%4 + 1*2 +1=B (11) 
0%8 + 0*%4 + 1%2+0=2 
0*8 + 0% + 0%2 +0 =0 
1+8 + 1+4 + 1+2 + 1 = F (15) 


Die Hexzahl unserer Maske kann man nun rechts senkrecht ab- 
lesen. Sie lautet B20F. Das können wir auch gleich anhand eines 
kleinen Programms ausprobieren: 


REM Gepunktete Linie 


PATTERN &HB2OF 
LINE (0,0)-(614,185) 
LINE (20,30)-(104,105),2,B 


Wie Sie sehen, wirkt unser Muster sowohl auf einfache Linien 
genau wie auf die Umrandung von Kästchen. Die Zeichen "&H" 
vor unser Maske kennzeichnen die Zahl als Hexzahl. 


1.4.3.2 Gemusterte Flächen 


Bei Füllmustern ist der Aufbau, wie gesagt, ähnlich. Da aber 
Flächen im Gegensatz zu Linien zweidimensional sınd, werden 
mehrere 16-Bit-Masken übereinander gestapelt. Diese Masken 
werden in einer Feldvariablen zusammengefaßt und an den Be- 
fehl PATTERN übergeben. 


Das Muster für Linien wird als erster, das Muster für Flächen 
als zweiter Parameter mit einer ganzzahlıgen Feldvariablen defi- 
niert. 


REM Mustermacher 


DEFINT a 
OPTION BASE 1 
DIM a(8) 


FOR i=1 TO 8 
READ ai) 
NEXT i 


PATTERN ‚a 
COLOR 3,1 
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LINE (0,0)-(614,185), ,bf 


WHILE INKEY$="": WEND 
COLOR 1,0 
CLS 


DATA &h0,&h7FFF,&h7FFF,&h7FFF 
DATA &h0,&hFF7F,&hFF7F &hFF7F 


Als erstes muß man beachten, daß die Feldvariable, mit der das 
Muster übergeben wird, eine kurze Ganzzahl ist. Das bedeutet, 
daß sie nur Werte zwischen -32768 und 32767 annehmen kann. 


Diesen Werten entsprechen im Hexadezimalen die Werte von 0 


bis FFFF. Wenn die Feldvariable nicht von diesem Typ ist, kann 
ein Fehler auftreten. Deshalb bestimmen wir anfangs mit 
"DEFINT a" unsere Feldvariable als kurze Ganzzahlvariable. 


PATTERN erfährt über die DIM-Anweisung, wie viele Ebenen 
das Muster hat. Deshalb muß die Feldvariable, auch wenn sie 
weniger als zehn Elemente besitzt, vorher deklariert werden. Die 
Anzahl der Feldelemente muß genau eine Potenz von zwei 
besitzen (erlaubte Werte sind z.B. 1, 2, 4, 8, 16,usw.). Besitzen 
sie nur ein Element mehr oder weniger, wird schon eine "Illegal 
function call"-Meldung auf dem Bildschirm erscheinen. Deshalb 
müssen Sie beachten, daß das erste Element einer Feldvariablen 
normalerweise den Index Null führt. Sie müssen also entweder 
den Index in der DIM-Anweisung immer um | kleiner als 2n 
halten oder mit Hilfe von 


OPTION BASE 1 


den kleinsten Indexwert aller Feldvariablen auf 1 heraufsetzen. 


1.4.3.3 Design im Listing 


Wie Sie gesehen haben, bereitet das Errechnen der Muster sehr 
viel Arbeit. Aber ist es nicht auch ein wenig umständlich, diese 
Werte selber ausrechnen zu müssen, wenn man sowieso einen 
Computer neben sich stehen hat? Da können wir ihn doch gleich 
die Arbeit machen lassen. 
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Alles, was wir dazu brauchen, ist ein kleines Programm, das 
unsere binäre Mustermaske versteht und in Hexadezimal- oder 
Dezimalzahlen umrechnen kann. Da AmigaBASIC selbst noch 
keine Binärzahlen versteht, haben wir für diesen Zweck ein 
kleines Unterprogramm entwickelt. Dieses Programm wandelt 
Zeichenketten in kurze Ganzzahlen (Zahlen ohne Komma, die 
im Speicher mit zwei Byte dargestellt werden) um. In der Zei- 
chenkette wird jede Null durch ein Leerzeichen repräsentiert. 
Jedes andere Zeichen gilt als Eins. 


Beim folgenden Programm haben wir das große Amiga-A als 
Vorlage für unser Muster gewählt. 


REM Design im Listing 


OPTION BASE 1 


a=8 

DIM f$(a) 

REM 0123456789ABCDEF 
f$O1)=u Krk 
f$(2)=" ar 
f$(3)=" “„ ak 
f$(4)=" * ur% 
f$(5)=" RER EN 
f$(6)=" “% ar 
f$(7)=" REKER Ara 
fg) = 


REM 0123456789ABCDEF 
CALL changeformat(f$(),a) 


CIRCLE (400,140) ,100 
PAINT STEP(0,0),2,1 
AREA (150,160) 

AREA (500,100) 

AREA (570,170) 


S 


AREAFILL 1 
MOUSE ON 


WHILE INKEY$="" 
IF MOUSE(O)<>O THEN 
b=MOUSE (1) 
c=MOUSE (2) 
IF b>0 AND b<600 AND c>0 AND c<172 THEN 
LINE (b,c)-(b+t4,c+4),1,bf 
END IF 
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END IF 
WEND 


SUB changeformat (feld$(1),g) STATIC 


DIM feld%(g) 
FOR i=1 TO g 
feld$Ci)=feld$Ci)+SPACE$(16) 
FOR j=0 TO 3 
h=0 
FOR k=0 TO 3 
IF MID$Cfeld$Ci), j*4+k+1,1)<>" " THEN h=h+2°(3-k) 
NEXT K 
feld% i)=feld%li)+VALC"&h"+HEX$Ch*2"(4*l3-j)))) 
NEXT j 
PRINT i, HEX$Cfeld%Ci)), feld%Ci) 
NEXT i 


PATTERN ‚feld% 
END SUB 


Das Muster, das erst nur als Zeichenkette aus Leerstellen und 
Sternen besteht, wird umgeformt, und dann mit ihm ein Kreis 
und ein Dreieck gefüllt. Anschließend kann man mit der Maus 
und diesem Muster zeichnen. Dabei wird auf Tastendruck am 
Mauszeiger in einem 4*4 Pixel großen Rechteck ein Fragment 
des Musters auf den Bildschirm gemalt. 


An das 'Sub-Programm, das die Zeichenketten in Hex-Zahlen 
verwandelt, werden zwei Parameter übergeben: ein Zeichenket- 
tenfeld, in dem die Masken gespeichert sınd, und die Anzahl der 
Feldelemente. Die Umrechnung selbst erfolgt nach dem oben er- 
klärten Prinzip. Im Unterprogramm wird dann auch das Muster 
an PATTERN übergeben. 


Es ist vielleicht nicht die beste Methode, bei jedem Programm- 
start die Werte neu umzurechnen, denn das benötigt doch immer 
eine gewisse Zeit. Dafür ist dieses Programm aber hervorragend 
als Mustereditor zu benutzen. Vertauschen Sie im Listing das 
große Amiga-A einfach mit Ihren eigenen Mustern. Probieren 
Sie herum, und wenn das Muster Ihnen noch nicht gefällt, been- 
den Sie das Programm und verbessern es im Listing. Damit man 
das Programm auch als Editor gebrauchen kann, werden die er- 
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rechneten Daten im Hex-Code und in Dezimalzahlen ausge- 
druckt. Wenn Ihr Muster so ist, wie Sie es haben wollen, schrei- 
ben Sie sich einfach diese Daten ab und übertragen sie in Ihr ei- 
genes Programm. 


1.4.3.4 Änderungen am Cursorstrich 


Die Muster sind eigentllich nur dafür gedacht, die Füllfunktio- 
nen zu beinflussen. Aber auch den Cursor kann man mit dem 
PATTERN-Befehl beeinflussen. Das ist ein Nebeneffekt, der je- 
desmal auftritt, wenn ein Muster definiert wurde. Das beste 
Beispiel dafür ist das oben abgedruckte Programm. Nachdem das 
Programm die Daten ausgegeben hat und das Ausgabefenster an- 
geklickt wird, muß sich der Cursor bekanntlich im Ausgabe- 
fenster befinden. Tut er auch. Er ist aber nur noch als kleiner 
Punkt zu sehen. Drücken Sie nun mehrmals kurz die Leertaste, 
dann sehen Sie statt des gewohnten Cursors mal einen dicken 
Punkt, mal eine gepunktete Linie. Diese Punkte stammen alle 
von den As des Musters. Wen diese veränderten Cursor stören, 
der kann den Cursor dadurch normalisieren, daß er folgende 
Zeilen an das Musterprogramm anhängt: 


REM Cursor reset 
DIM norm%(2) 
norm%(l 1)=&HFFF 
norm&(2)=&HFFF 
PATTERN ‚norm% 


(Es ist sehr wichtig, daß vor diesen Programmzeilen der Befehl 
OPTION BASE 1 ausgeführt wurde. Wenn Sie OPTION BASE 
nicht benutzt haben, müssen alle Feldindizes um eins verringert 
werden.) 


Natürlich kann man nun auch den umgekehrten Weg gehen und 
den Cursor absichtlich verändern. Auf diese Weise kann man 
beispielsweise bei INPUT den Cursor verschwinden lassen oder 
ihn stricheln. Eine gestrichelte Cursorlinie erzeugt man, indem 
man im obenstehenden Programm, mit dem wir den Cursor nor- 
malisiert haben, norm%(2) auf null setzt. Eine halbe Cursorlinie 
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entsteht durch ein kurzes Ganzzahlfeld mit acht Elementen, von 
denen die ersten vier Elemente alle null oder alle &HFFFF und 
die anderen vier Elemente alle genau entgegengesetzte Werte 
enthalten. 


1.5 Allerlei Buntes 


Der Amiga verfügt über eine Farbpalette von 4096 Farben. 
Davon kann man mit reinem BASIC 32 Farben gleichzeitig be- 
nutzen. (Später zeigen wir Ihnen, wie man noch mehr Farben 
nutzen kann.) Auf welche von diesen Farben man gerade zu- 
greifen kann, steht in den Farbregistern. Bei allen Befehlen gibt 
man genaugenommen nicht die Farbe, sondern immer nur das 
Farbregister an. 


Man kann nicht in jedem Screen alle 32 Farben benutzen. Die 
Anzahl der Farben hängt von der Tiefe des Bildschirms ab. Der 
normale Workbenchscreen hat die Tiefe 2. Mit ihm kann man 
2*2, also 4 Farben darstellen. Für jeden Punkt gibt es im 
Speicher zwei Bits. Aus den Kombinationen der zwei Bits lassen 
sich die vier Farben darstellen. 


00 Farbregister O 
01 Farbregister 1 
10 Farbregister 2 
11 Farbregister 3 


Um 32 Farben darzustellen, braucht man fünf Bit pro Punkt. 
Deshalb müssen wir erst einen neuen Screen mit Tiefe 5 öffnen: 


SCREEN 1,320,200,5,1 
WINDOW 2,"Titel",(0,0)-(311,185),16, 1 


Nun können wir alle Befehle, die wir schon kennengelernt ha- 
ben, mit 32 Farben benutzen, wie wir es ja auch schon in eini- 
gen Programmen gemacht haben. 
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Von den Farben, die im jeweiligen Screen zur Verfügung ste- 
hen, kann man eine Farbe als Vordergrundfarbe und eine als 
Hintergrundfarbe bestimmen. 


COLOR 1,0 


Das sind die beiden voreingestellten Werte. Der vordere Wert 
gibt die Vordergrundfarbe an, der zweite die Hintergrundfarbe. 
Diese Werte werden von den Grafikbefehlen berücksichtigt. Bis 
auf PRESET wird, solange kein Farbparameter angegeben ist, 
der Befehl mit der Vordergrundfarbe ausgeführt, bei PRESET 
der mit der Hintergrundfarbe. 


Nachdem man die Vorder- und/oder Hintergrundfarbe geändert 
hat, ändern sich die Farben des Bildschirms noch nicht. Erst 
wenn man den Befehl CLS aufruft, färbt sich der Bildschirm 
entsprechend. 


COLOR 2,3 
CLS 


Durch diese Befehle erhält man einen orangefarbigen Bildschirm 
mit schwarzer Vordergrundfarbe. 


1.5.1 Die ganze Palette 


Sicher werden die 32 voreingestellten Farben nicht immer zum 
Programm passen. Häufig braucht man ganz andere Farben, als 
zur Verfügung stehen. Das macht aber rein gar nichts, denn man 
kann die Farben, die in den Farbregistern angegeben sind, 
ändern. 


Jede Farbe besteht aus drei Werten. Sie geben die Rot-, Grün- 
und Blauanteile der Farbe an. Jeder Anteil kann einen von 16 
Werten annehmen. Das macht dann 4096 Farben (16 hoch 3). 


Der BASIC-Befehl, mit dem man die Farben ändert, heißt 
PALETTE. Außer den RGB-Werten (Rot, Grün und Blau) muß 
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man auch das Farbregister angeben, das geändert werden soll. 
Die Werte der Farbanteile müssen zwischen null und eins liegen. 


PALETTE 0,.75,1,0 


Diese Zeile schafft einen neongelben Hintergrund. Die Farbe er- 
gibt sich aus einer Mischung von rot und gelb. Blau ist gar nicht 
vertreten. Den gewohnten blauen Hintergrund bekommt man mit 


PALETTE 0,0,.3,.6 
zurück. 


Ist nur der Rotanteil eins und sind die anderen beiden null, ist 
die Farbe rot. Entsprechend ist es bei den anderen beiden An- 
teilen. 


Wenn alle drei Farbanteile gleich sind, ist die Farbe grau. Je 
niedriger alle drei Farbanteile sind, desto dunkler ist die Farbe; 
sind alle drei Anteile eins, hat man weiß. 


Wie schon gesagt, so gliedert sich jeder Wert in 16 Schritte auf. 
In der folgenden Tabelle haben wir noch einmal kurz die einzel- 
nen Schritte angedeutet. 


1. Schritt O bis 0.0625 
2. Schritt bis 0.125 
3. Schritt bis 0.1875 
4. Schritt bis 0.25 
usw. 


1.5.2 Farbe gesucht 


Wenn man mit den drei Farbanteilen weiter herumjongliert, 
kann man alle Farben finden, die man braucht. Es wird aber 
sehr mühsam sein, einen bestimmten Farbton durch planloses 
Ausprobieren zu finden. Mit dem folgenden Programm kann 
man Farben gezielt suchen und finden, zwei Farben mischen, 
die Farbwerte ausgeben, ausdrucken oder abspeichern und noch 
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etliches mehr. Dabei ist das Programm noch so komfortabel ge- 
halten, daß es sehr viel Spaß macht, mit ihm zu arbeiten. 


REM Farbdesigner 


DEF FNfarbtab=PEEKL(PEEKL(PEEKL(WINDOW(7)+46)+48)+4) 
DEF FNrgb(f,rgb)=(PEEKWCFNfarbtab+t2*f) AND (15*2°(12-rgb*4)))/C15*2"C12- 
rgb*4)) 


DIM w(6) ,wa(6),t(6),af(6),nv(6),a%(3) 
FOR i= 1 TO 6:tCi)=1:NEXT i:t(4)=6 
a$l1)="scern:":a$(3)="lpt1:" 


farbe=5 

MENU 1,0,1,"Ein-/Ausgabe"" 
MENU 1,1,1,"Bildschirm " 
MENU 1,2,1,"Speichern " 
MENU 1,3,1,'"Drucker a 
MENU 1,4,1,"Laden " 
MENU 1,5,1,"Ende" 


ON MENU GOSUB ausgabe 
MENU ON 


SCREEN 1,320,200,5,1 
WINDOW 1,"Farbendesign",(0,0)-(297,185),31,1 


GOSUB start 


WHILE 1 
IF MOUSE(O)<>O THEN 
GOSUB IsWasPassiert 
ELSE 
t=0 
END IF 
WEND 


ende: WINDOW 1,"Auf Wiedersehen !",, „1 
SCREEN CLOSE 1 
END 


start: CLS !%%*%*%* Bildschirm aufbauen **** 

RESTORE 

FOR i=1 TO 6:waCi)=0:NEXT 

FOR i=0 TO 31 

LINE (1*9+14,0)-(1*9+23,50),i,bf 

NEXT i 
LINE (13,0)-(303,51),1,b 
FOR i= 1 TO 15 

READ x1,y1,x2,y2 

LINE (x1,y1)-(x2,y2),1,bf 
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NEXT i 

DATA 35,61,55,73,35,77,55,89,35,93,53, 105 

DATA 60,56,278,105,283,61,303,73,283,77,303,89 
DATA 283,93,303,105,35,109,55,121,35,125,55,137 
DATA 35,141,55,153,283,109,303,121,283,125,303,137 
DATA 283,141,303,153,60,109,278,158,13,55,30, 158 


COLOR 0,1 
LOCATE 9,1 
FOR i= 1 TO 6 
READ x$ 
PRINT TAB(6) ;"-";TAB(9);x$; TAB(34);x$; TAB(37) ; "+" 
PRINT 
NEXT i 
DATA R,G,B,H,S,V 
FOR i=1 TO 6 
FOR j=1 TO 15*t(i) 
LINE (76+Cj-1)*12/tCi) ,48+i*16)-(76+ j*12/t(i1),55+i*16),2,b 
LINE (77+(j-1)*12/tCi) ,49+i*16)-(75+ j*12/tCi) ,54+i*16),0,bf 
NEXT j 
NEXT i 
LINE (14,56)-(29,157),farbe,bf 
FOR i=1 TO 3 
wCi)=FNrgb( farbe, i) 
afli)=w(i) 
NEXT i 
GOSUB werte 
LOCATE 22,3 
PRINT " Tausche ";TAB(13);" Kopiere ";TAB(23);"Uebergang"; 
PRINT TAB(33) ;"Undo"; 
COLOR 1,0 
RETURN 


IswasPassiert: 
WHILE MOUSE(O)J<>O AND t<150:t=t+1:WEND 
x=MOUSE (1) 
y=MOUSE (2) 
IF y<51 THEN verkk Farbe Fhrkk 
farbe=POINT (x,y) 
LINE (14,56)-(29,158), farbe,bf 
FOR i=1 TO 3 
wCi)=FNrgb(farbe,i) 
NEXT i 
IF af<O THEN 
afl1)=wl1I):afl2)=w(2):afl3)=w(3) 
GOTO werte 
END IF 
ON tool GOTO tausche, kopiere, uebergang 
ELSEIF y>167 AND y<176 THEN 
IF x>15 AND x<248 THEN 
tool=INT((x-15)/77)+1 
af=farbe 
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LINE (16,180)-(247,184),1,bf 
RETURN 
ELSEIF x>257 AND x<294 THEN 
FOR i= 1 TO 3 rk Undo FrR% 
w(i)=af(i) 
NEXT 
GOTO werte 
END IF 
ELSEIF y>61 AND y<153 THEN 
i=INT((y-46)/16) 
IF x>34 AND x<56 THEN 
wCi)swCi)-1/15:1IF wCi)<O THEN wCi)=O 
ELSEIF x>282 AND x<304 THEN 
wCei)=wlCi)+1/15:1IF wCi)>tli) THEN wCi)=t(li) 
ELSEIF x>75 AND x<255 THEN 
wCi)=INTCtCi)*15*Cx-76)/178+.9)/15 
END IF 
IF i>3 THEN 
CALL rgb(w(4) ,wC5),w(6),wC1),w(2),w(3)) 
GOTO werte2 
END IF 
END IF 


werte: 
CALL hsv(wC1),w(2) ,w(3) ,w(4) ,wC5),w(6)) 
werte2: af=-1 
LINE (16,180)-(247,184),0,bf 
PALETTE farbe,w(1)*15/16,1(2)*15/16,w(3)*15/16 
FOR i= 1 TO 6 
FOR j=INTCwaCi)*15)+1 TO INTCWCI)*15) 
LINE (77+Cj-1)*12/tCi),49+1*16)- (75+j*12/tCi) ,54+i*16),3,bf 
NEXT j 
FOR j=INTCwCi)*15)+1 TO INTCwaCi)*15) 
LINE (77+Cj-1)*12/tC1),49+1*16)-(75+j*12/tCi),54+1*16),0,bf 
NEXT j 
waCi)=w(i) 
NEXT i 
RETURN 


tausche: 
FOR i=1 TO 3 
afli)=w(i) 
wCi)=FNrgb(af,i) 
NEXT 
PALETTE af,af(1)*15/16,af(2)*15/16,af(3)*15/16 
GOTO werte 


kopiere: 

FOR i=1 TO 3 
wCi)=FNrgb(af,i) 

NEXT i 

GOTO werte 
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uebergang: 
IF af=farbe THEN RETURN 
FOR i=1 TO 3 
afCli)=FNrgb(af,i) 
NEXT i 
CALL hsv(af(1),af(2),af(3),afl4),afl5),af(6)) 
CALL hsv(w(1),w(2),w(3) ,w(4) ,w(5),w(6)) 
s=1:h2=af 
IF farbe <af THEN s=-1:h2=farbe 
h=ABS(farbe-af) 


FOR i= 4 TO 6 
nvCi)=(lwCi)-afli))/h 
NEXT 


IF s=-1 THEN nv(4)=(w(4)-6-af(4))/h 
FOR i=1 TO h-1 
FOR j=4 TO 6 
aflj)=aflj)+nv(j) 
IF afl4)<O THEN afl4)=afl4)+t(4) 
IF afl4)>=t(4) THEN afl4)=af(4)-t(4) 
NEXT j 
CALL rgb(af(4),af(5),af(6),afl1),afl2),af(3)) 
PALETTE af+i*s,af(1)*15/16,afl2)*15/16,af(3)*15/16 
NEXT i 
GOTO werte 


ausgabe: 
IF MENU (0O)<>1 THEN RETURN 
p=MENU(1) 
IF p=5 THEN ende 
CLS 
IF p=2 OR p=4 THEN INPUT "Dateiname : ",a$(2) 
PRINT "Erstes Register" 
INPUT "(0-31 / -1=Abbruch) :",a 
IF a>31 OR a<O THEN start 
IF p=4 THEN 
OPEN a$(2) FOR INPUT AS 1 
INPUT #1,a1,b 
FOR i=0 TO b-al 
INPUT #1,r,9,b 
PALETTE a+i,r,g,b 
NEXT i 
CLOSE 1 
GOTO start 
ELSE 
b=31 
INPUT "Endregister (0-31) : ",b 
IF b<a OR a>31 THEN start 
OPEN a$(p) FOR OUTPUT AS 1 
PRINT #1,a,b 
FOR i= a TO b 
PRINT #1,USING " #.##":FNrgb(i,1), FNrgb(i,2),FNrgb(i,3) 
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NEXT i 
CLOSE 1 
PRINT "Taste druecken!"! 
WHILE INKEY$="1:WEND 
GOTO start 
END IF 


SUB hsv (r,g,b,h,s,v) STATIC 
vr 
IF v<g THEN v=g 
IF v<b THEN v=b 
min=r 
IF min>g THEN min=g 
IF min>b THEN min=b 
IF min<>v THEN 
s=(1-min/v) 
IF r=v THEN 
h=(g-b)/(v-min) 
ELSEIF g=v THEN 
h=2+(b-r)/(v-min) 
ELSEIF b=v THEN 
h=4+(r-g)/(v-min) 
END IF 
IF h<O THEN h=h+6 
ELSE 
s=0 
h=0 
END IF 
END SUB 


SUB rgb(h,s,v,r,9,b) STATIC 
r=V 
9=V 
=v 
IF s<>0O THEN 
h1=v*(1-s) 
h2=v*(1-s*(h-INTCh))) 
h3=v*(1-s*(1-h+INTCh))) 
IF INTCh)=O THEN 
g=h3:b=h2 
ELSEIF INTCh)=1 THEN 
r=h2:b=h1 
ELSEIF INTCh)=2 THEN 
r=h1:b=h3 
ELSEIF INTCh)=3 THEN 
r=h1:g=h2 
ELSEIF INTCh)=4 THEN 
r=h3:g=h1 
ELSEIF INTCh)=5 THEN 
g=h1:b=h2 
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END IF 
END IF 
END SUB 


Dieses Programm ist ein klassischer Beweis dafür, daß sich die 
Länge von einen Programm mit mehr Komfortabilität drastisch 
erhöht. Aber wenn das Programm erst einmal im GOmpuEE ist, 
freut man sich über jede Arbeitserleichterung. 


1.5.2.1 Programmbedienung 


In der oberen Bildschirmhälfte sind 32 Farben aufgereiht. Jede 
Farbe entspringt den Werten eines Registers. Wenn Sie eine von 
diesen Farben ändern wollen, brauchen Sie sie nur mit der Maus 
anzuklicken. 


Auf der linken Seite befindet sich ein größerer Kasten. Hier 
wird die jeweils aktuelle Farbe angezeigt. 


Die Werte der Farbe werden auf dem Bildschirm durch drei 
Balken dargestellt. Man kann sie durch Anklicken der "+" und 
der "-" Felder oder durch Anklicken der Balken ändern. 


Damit man die Farbänderungen auch in die eigenen Programme 
einbauen kann, bietet das Programm drei verschiedene Möglich- 
keiten an, die Daten herauszugeben. Man kann sie sich auf den 
Bildschirm oder den Drucker ausgeben lassen oder auf Diskette 
abspeichern. Diese Möglichkeiten erreichen Sie über das Menü. 


Unter den drei Balken für die Rot-, Grün- und Blauanteile 
finden Sie drei weitere Balken. Diese Balken enthalten ebenfalls 
die Informationen der aktuellen Farbe. Aber in diesen Balken 
werden die Farben durch ein anderes Farbmodell ausgedrückt. 


1.5.2.2 Das HSV-Farbmodell 


Es gibt viele verschiedene Möglichkeiten, eine Farbe darzustel- 
len. Sehr viele dieser Möglichkeiten finden auch irgendwo eine 
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Verwendung, haben aber für den Amiga keinen praktischen 
Nutzen. Beim Amiga wie auch bei anderen Computern wird in- 
tern ausschließlich das RGB-Modell (für Rot, Grün und Blau) 
benutzt. Ein anderes Farbmodell ist das HSV-Modell. Hier ste- 
hen die Buchstaben für die englischen Worte Hue (Farbe), Satu- 
ration (Sättigung) und Value (Wert). 


Saturation und Value nehmen nur Werte zwischen 0 und I an. Es 
gibt, genau wie bei den RGB-Werten, 16 Schritte, d.h. man hat 
die Wahl zwischen 16 verschiedenen Werten für Value and Sa- 
turation. Bei Hue hat man wesentlich mehr Schritte. Es gibt also 
sehr viel mehr Kombinationen aus HSV-Werten als beim RGB- 
Modell. Deshalb geben nicht alle Kombinationen unterschiedli- 
che Farben, nicht jede Veränderung eines HSV-Wertes bewirkt 
auch eine Farbänderung. 


Will man mit dem HSV-Modell arbeiten, dann muß man die 
HSV-Werte in RGB-Werte umrechnen. Diese etwas komplizierte 
Arbeit übernehmen zwei Routinen am Programmende unseres 
Farbdesigners. Das Unterprogramm RGBHSYV() wandelt HSV- in 
RGB-Werte um, HSVRGBI) erledigt die andere Richtung. 


Wenn man sich soviel Arbeit mit dem Hin- und Herrechnen von 
Werten macht, muß sich das natürlich auch lohnen. Was ist der 
große Vorteil des HSV-Modells? 


Anfangs hatten wir angekündigt, daß man mit dem Programm 
auch Farben mischen kann. Hierbei setzen wir das HSV-Modell 
ein. Wenn wir die HSV-Werte zweier Farben haben, brauchen 
wir nur ihre Mittelwerte zu bilden und erhalten so die gemischte 
Farbe. Auf diese Weise kann man nicht nur eine Mischfarbe, 
sondern gleich verschiedene Farben zurechtmischen und be- 
kommt so feine Farbabstufungen zwischen zwei Farben. 


Wollen Sie mit dem Farbendesigner diese Farbabstufungen er- 
zeugen, sollten Sie zuerst die erste Farbe, die in die Vermi- 
schung eingeht, bestimmen. Danach müssen Sie das Wort "Über- 
gang" mit der Maus anklicken. Bis jetzt ist noch nichts passiert. 
Erst wenn Sie eine weitere Farbe auswählen, berechnet das Pro- 


72 Das neue Supergrafikbuch ——— 


gramm die Farbübergänge und schreibt sie in die Farbregister 
zwischen die der ausgewählten Farben. Bei der Auswahl der 
Farben ist es nicht egal, welche Farbe Sie zuerst anklicken. Es 
entsteht eine total andere Farbtabelle, wenn Sie die jeweils an- 
dere Farbe zuerst anklicken. Hier müssen Sie ausprobieren, 
welche der beiden verschiedenen Farbabstufungen Sie gerne be- 
nutzen möchten. 


1.5.2.3 Die Umkehrung von PALETTE 


Leider gibt es in BASIC keine Umkehrung zum PALETTE-Be- 
fehl. Man kann mit keinem Befehl die Farbanteile abfragen. 
Doch gerade das ist bei einigen Programmen, wie etwa beim 
Farbdesigner, sehr wichtig. Deshalb greifen wir an dieser Stelle 
etwas voraus und gucken direkt in den Speicher, um uns von 
dort die Werte zu holen. Wie die Adresse zu dieser Farbtabelle 
zustande kommt, erklären wir später, wenn wir uns vom reinen 
BASIC lösen. 


Damit Sie nicht mit den Peeks belästigt werden, haben wir die 
Abfrage als Funktion am Programmanfang abgelegt. Sie brau- 
chen sich nicht um Adressen zu kümmern, sondern nur das 
Farbregister an die Funktionen zu übergeben. Das folgende Pro- 
gramm befindet sich, in leicht abgeänderter Form, auch schon 
ım Farbdesigner. Es gibt drei einzelne Funktionen, für jeden 
Farbanteil eine. 


REM Palette-Umkehrung 


SCREEN 1,320,200,5,1 
WINDOW 2, ,,16,1 


DEF FNfarbtab=PEEKL(PEEKL(PEEKL(WINDOW(7)+46)+48)+4) 
DEF FNrot(f)=(PEEKWCFNfarbtab+2*f) AND 3840)/3840 
DEF FNgruen( f)=(PEEKWCFNfarbtab+2*f) AND 240)/240 
DEF FNblauCf)=(PEEKWCFNfarbtab+2*f) AND 15)/15 


PRINT "RGB-Farbwerte:" 
FOR i = O0 TO 31 


LOCATE 5+i MOD 16,1+INT (i/16)*20 
COLOR i 
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PRINT USING "Hansi, 

COLOR 1 

PRINT USING " #.##":FNrotCi);FNgruen(i);FNblauCi) 
NEXT i 


WHILE INKEY$=""":WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Dieses Programm druckt zu jeder Farbe die entsprechenden 
Farbwerte aus. Farbregister und Farbe sind jeweils vor den drei 
Werten zu lesen und zu sehen. 


1.6 Rund um PUT und GET 


Damit man seine eigenen Grafiken auch auf Dauer erhalten 
kann, gibt es den PUT- und den GET-Befehl. Mit diesen Be- 
fehlen kann man beispielsweise eine Grafik auf Diskette 
speichern. Man kann aber noch viel mehr aus diesen Befehlen 
herausholen, z.B. mit ihnen Animation betreiben. 


Eins haben alle Anwendungen von PUT und GET gemeinsam: 
Bildinformationen werden verarbeitet. 


1.6.1 Arbeitsweise von PUT und GET 


Mit PUT liest man eine Grafik aus einem bestimmten Bereich, 
den man im PUT-Befehl angibt. Die Daten werden in einer 
Feldvariablen abgelegt. Wir benutzen als Feldvariable immer ein 
Feld, mit dem man nur ganze Zahlen abspeichern kann, alle 
ganzen Zahlen zwischen 32767 und -32768. Bei diesem Typ ist 
der Aufbau der Daten denkbar einfach: 


1. Feldplatz = Breite 
2. Feldplatz = Höhe 
3. Feldplatz = Tiefe 


4. Feldplatz = Bitplanes 
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Ab dem vierten Feldplatz folgen alle Bitplanes. Die Tiefe in 
einer Grafik gibt die Anzahl der verwendeten Bits pro Bildpunkt 
an. Die erste Bitplane enthält alle ersten Bits aller Punkte, die 
zweite alle zweiten usw. Deshalb gibt die Tiefe auch die Anzahl 
der Bitplanes an. Daran kann man schon sehen, daß die Anzahl 
der Feldplätze, die man für eine Grafik reservieren muß, immer 
unterschiedlich ist. Neben der Tiefe hängt die Anzahl auch von 
Breite und Höhe ab. | 


Bei diesen Daten werden 16 Bits einer Bitplane und einer Bild- 
schirmzeile zusammengefaßt, denn soviel läßt sich in einer kur- 
zen Ganzzahl speichern. Deshalb müssen wir bei der Bestimmung 
der Speicherplätze die Breite durch 16 teilen. Wenn dabei ein 
Rest entsteht, die Breite also nicht genau durch sechzehn zu tei- 
len ıst, muß auf jeden Fall aufgerundet werden, denn sonst 
würde man immer die letzten Bildpunkte einer Zeile abschnei- 
den. Diesen Wert muß man nur noch mit der Höhe und der 
Tiefe multiplizieren. Außerdem muß in je einem Speicherplatz 
die Breite, die Höhe und die Tiefe angegeben werden. Daraus 
ergibt sich folgende Formel, mit der man immer die Anzahl der 
Feldplätze ausrechnen kann: 


Speicherplätze=3+Hoehe*Tief e*INT((Breite+15)/16) 


Das erste Programm dieses Kapitels macht nichts weiter, als den 
Bildschirminhalt mit GET zu retten, den Bildschirm zu löschen 
und dann das Gerettete wieder auszugeben. 


REM Demo fuer GET und PUT 


OPTION BASE 1 
DEFINT f 


CIRCLE (170,60),110 

PAINT STEP (0,0),2,1 

COLOR 1,2 

LOCATE 5,10 

PRINT "Dieses Demo zeigt" 

PRINT TAB(10)'"wie man Grafiken! 
PRINT TAB(C10)"im Speicher ablegen! 
PRINT TAB(C10)"und auch wieder" 
PRINT TAB(C10)"Im Bildshirm aus-" 
PRINT TAB(10)'"geben kann I!!! 


——— Grafikauf dem Amiga ——— 237 


AREA (140,20) 
AREA (80,60) 
AREA (300,80) 
AREAFILL 1 
COLOR 1,0 


REM Grafik speichern 

x1=240 :y1=10 

x2=300:y2=120 

DIM feld(3+2*Cy2-yi+1)*INTC(x2-x1+16)/16)) 
GET (x1,y1)-(x2,y2),feld 


REM Grafik wieder ausgeben 
FOR i=0 TO 140 

CLS 

PUT (i*3,i),feld 
NEXT i 


Die ersten etwa zwanzig Zeilen des Programms dienen nur dazu, 
eine Grafik zu erstellen. Von dem so entstandenen Bild haben 
wir die Koordinaten der oberen linken und der unteren rechten 
Ecke genommen und damit ausgerechnet, wie viele Speicher- 
plätze wir reservieren müssen. 


Ob die Formel, die die Anzahl der benötigten Speicherplätze 
errechnet, stimmt, können wir ganz einfach überprüfen: Addie- 
ren Sie in dieser Formel statt der drei benötigten nur zwei 
Speicherstellen. Sobald wir das Programm starten, wird eine "Il- 
legal function call"-Meldung auf dem Bildschirm ausgegeben. 
Diese Meldung wird immer ausgegeben, wenn Sie zuwenig Spei- 
cher für GET reserviert haben. Also immer, wenn man genug 
Speicher zur Verfügung hat, ruhig etwas mehr Speicher zurück- 
legen! 


An dieser Demo können Sie nicht nur die Arbeitsweise der bei- 
den Befehle sehen. Man erkennt auch die hohe Geschwindigkeit, 
mit der sich die Grafik über den Bildschirm bewegt. Die Bewe- 
gung wirkt fließend, und auch während der Bewegung kann man 
den Schriftzug deutlich lesen. Daran sieht man schon, daß man 
mit PUT und GET animierte, also bewegte Grafiken auf einfa- 
che Weise erstellen kann. 
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1.6.2 Speichern auf Diskette 


Wie wir die Bildinformationen in den Speicher bekommen, ha- 
ben wir nun schon gesehen. Dort können sie aber nicht ewig 
bleiben, denn nach dem Ausschalten wären sie gelöscht. Um eine 
Grafik zu erhalten, muß man sie auf Diskette ablegen. 


Das folgende Programm enthält jeweils ein Unterprogramm zum 
Laden und zum Speichern. Diese Programmteile arbeiten un- 
abhängig vom Programm und können deshalb auch für andere 
Programme benutzt werden. 


Außerdem kann man mit dem Programm auch ganz gut malen. 
Anfangs hat man nur den kleinen Punkt als Pinsel. Dieser Pinsel 
arbeitet mit vier Farben. Das Gemalte kann man auf Diskette 
abspeichern, und man kann das Gespeicherte auch wieder laden 
und damit auf dem Bildschirm malen. 


REM Malprogramm 


OPTION BASE 1 
DEFINT a-z 


PRINT "Malen Sie mit der Maus." 

PRINT "Wenn Sie einen Teil der" 

PRINT "Grafik speichern wollen, druecken!" 
PRINT "Sie !sı,“ 

PRINT "Mit '!L'! koennen Sie die Grafik" 
PRINT "wieder laden und mit ihr malen." 


WHILE a$<>!!e" 
a$=INKEY$ 
WHILE a$=!1 
IF MOUSE(O)<>O THEN 
PSET (MOUSE(1),MOUSE(2)) 
END IF 
a$=INKEY$ 
WEND 
IF a$="l" THEN GOSUB bildmalen 
IF a$="s! THEN GOSUB bildretten 
IF a$>="0" AND a$<"4" THEN COLOR VAL(a$) 
WEND 


bildmalen: 
DIM feld(10000) 
WINDOW 2,,(0,0)-(600,0),16 
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INPUT "Dateiname :";b$ 
IF b$<>"" THEN 
CALL laden(b$, feld()) 
END IF 
WINDOW CLOSE 2 
WHILE INKEY$="M 
IF MOUSE (0)<>0 THEN 
PUT(MOUSE(1) ,MOUSE(2)), feld 
END IF 
WEND 
ERASE feld 
RETURN 


bildretten: 
WINDOW 2,,(0,0)-(600,0),16 
INPUT "Name ";b$ 
IF b$<>"u THEN 
PRINT "Setzen Sie mit der Maus "; 
PRINT "die Eckpunkte der Grafik."; 
IF MOUSE(O)=0 THEN 1 
ax=MOUSE (1) :ay=MOUSE (2) 
IF MOUSE(O)<>O THEN 2 
IF MOUSE(O)=0 THEN 3 
bx=MOUSE ( 1) :by=MOUSE (2) 
WINDOW CLOSE 2 
CALL speichern (b$,ax,ay,bx,by,2) 
ELSE 
WINDOW CLOSE 2 
END IF 
RETURN 


' Die folgenden Unterprogramme 
" sind programmunabhaengig. 


SUB speichern (n$,x1,y1,x2,y2,tiefe) STATIC 


e=3+(y2-y1+1)*tiefe*INT((x2-x1+16)/16) 
DIM grafik%(e) 
GET (x1,y1)-(x2,y2),grafik% 
OPEN n$ FOR OUTPUT AS #1 
FOR i=1 TO e 
WRITE #1, grafik%(i) 
NEXT i 
CLOSE #1 
ERASE grafik% 
END SUB 


SUB laden (Dateiname$,grafik%(C1)) STATIC 
OPEN Dateiname$ FOR INPUT AS 1 


INPUT #1,grafik%C1),grafik%(2),grafik%(3) 
e=3+grafikX(3)*grafikXl2)*INTCCgrafik%C1)+15)/16) 
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FOR i=4 TO e 

INPUT #1, grafik%(i) 
NEXT i 
CLOSE 1 


END SUB 


Wenn man das ganze Bild abspeichern will, reicht der Speicher 
höchstwahrscheinlich nicht aus. Abhilfe kann man schaffen, in- 
dem man einmalig vor Programmstart den Speicher heraufsetzt: 


CLEAR ‚40000 


Damit man das Bild anschließend auch wieder laden kann, muß 
man gleichzeitig im Programm bei der Marke BILDMALEN die 
Speicherplätze von FELD auf ca. 15000 erhöhen. 


Wenn Sie die beiden Unterprogramme "Laden" und "Speichern" 
in Ihre Programme übernehmen, müssen Sie bestimmte Dinge 
beachten: An das Unterprogramm "Speichern" müssen der Da- 
teiname, unter dem die Grafik gespeichert werden soll, der linke 
obere und der rechte untere Eckpunkt der Grafik sowie die 
Tiefe übergeben werden. 


An "Laden" muß der Dateiname und ein Feld, das groß genug 
ist, um die Grafik in sich aufzunehmen, übergeben werden. Um 
sicherzustellen, daß kein Fehler auftritt, sollten Sie lieber zuviel 
als zuwenig Speicher für das Feld abzweigen. 


Beide Programmteile kann man beliebig oft hintereinander auf- 
rufen. Dafür sorgt beispielsweise auch der ERASE-Befehl am 
Ende des Unterprogramms "Speichern". Da die Variablen der 
Subs zwischen zwei Aufrufen ihre Werte behalten, würde ohne 
ERASE ein "Duplicate definition"-Fehler auftreten. 


Das Laden und Speichern auf Diskette wird mit den allgemein 
üblichen Dateiverwaltungsbefehlen OPEN, INPUT#, WRITE# 
und CLOSE erledigt. Mit OPEN und CLOSE öffnet und schließt 
man eine Datei auf Diskette. Beim Öffnen gibt man jeweils an, 
ob man aus einer Datei lesen oder in eine schreiben möchte. 


—— Grafik aufdem Amiga ———— 79 


Letzteres macht man mit WRITE#, was ähnlich der Ausgabe auf 
den Bildschirm ist. Das Einlesen der Daten ist mit der 
Tastatureingabe zu vergleichen. 


Bei "Laden" wird, bevor die Bitplanes geladen werden, die 
Information über Breite, Höhe und Tiefe geladen. Mit diesen 
Werten wird dann errechnet, wieviel Daten geladen werden 
müssen. 


1.6.3 Noch mehr Möglichkeiten mit PUT 


Wie Sie vielleicht beim Malen mit PUT im letzten Programm 
festgestellt haben, überdeckt eine mit PUT in den Bildschirm 
geschriebene Grafik den schon vorhandenen Inhalt nicht, son- 
dern verbindet sich irgendwie mit dem alten Bildschirminhalt. 
Vielleicht ist Ihnen auch aufgefallen, daß, wenn man eine Gra- 
fik zweimal an dieselbe Stelle setzt, die Grafik wieder ver- 
schwindet. 


1.6.3.1 Der Standardmodus von PUT 


Beide Phänomene gehören zusammen. Die Ursache liegt im 
PUT-Befehl. Statt den Bildschirm einfach zu überdecken, wird 
jeder Punkt der Grafik mit den alten Bildschirminhalten durch 
ein XOR verknüpft. Die Verknüpfungstabelle von XOR sieht so 
aus: 


0OXORO =0 
0OXOR1 =1 
1ıXORO =1 
ıXOR1 =0 


Wenn dabei zwei gesetzte Punkte übereinander fallen, wird der 
Punkt gelöscht. Es wird nur ein Punkt gesetzt, wenn ein unge- 
setzter und ein gesetzter Punkt übereinander fallen. 
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Sicher ist dies nicht für jeden Anwendungszweck optimal. Aber 
es geht auch anders. Hinter den PUT-Befehl kann man ver- 
schiedene Befehlsworte hängen, die Sie auch schon als Befehl 
oder Funktion kennen und mit denen man vollkommen andere 
Effekte erzielt (siehe unten). 


Für den voreingestellten, oben beschriebenen Modus ist das Be- 
fehlswort XOR. Ausgeschrieben würde der Standard-PUT-Be- 
fehl folgende Syntax haben: 


PUT (x,y),feld,XOR 


Mit Hilfe von XOR kann man sehr gut Animation betreiben, 
denn man kann ein Objekt über einen Hintergrund bewegen, 
ohne ihn zu verändern. So macht es auch die Kugel im folgen- 
den Programm. 


REM Bewegte Bilder mit PUT 


DEFINT g 

COLOR 2,0 

LOCATE 10,10 

PRINT "Dieses Programm laesst eine Kugel ueber" 
LOCATE 11,10 

PRINT "den Bildschirm wandern, ohne dass sie". 
LOCATE 12,10 

PRINT "diese Schrift veraendert!!" 


DEFINT g 

DIM 9(250) 

CIRCLE (20,20),20,1,,,-> 
PAINT (20,20),3,1 

GET (0,10)-(40,30),g 


PUT (0,10), 9, XOR 


WHILE INKEY$="M 
FOR i=0 TO 180 
PUT (2*i,i), 9 „XOR 
PUT (2*i,i),g,XOR 
NEXT i 
WEND 


Wenn man den PUT-Befehl zweimal an derselben Stelle aus- 
führt, wird genau das alte Bild wieder hergestellt. 
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Wie Sıe sehen, kann unser simples Anıimationsobjekt ziemlich 
viel von dem, was kompliziert aufgebaute Sprites des 64er oder 
anderer Computer geschafft haben. Andere Effekte der Sprites 
kann man mit anderen Modi des PUT-Befehls erreichen. 


Das Geheimnis der verschiedenen Modi und der Geschwindig- 
keit des PUT-Befehls liegt in einem Grafik-Coprozessor mit 
dem Namen Blitter. Dieser schiebt in ungeahnter Ge- 
schwindgkeit Daten im Speicher umher. 


Außerdem kann er auch noch etwas anderes: z.B. mit den Daten, 
die er verschiebt, gleichzeitig auch bestimmte Verknüpfungen 
durchführen, wie etwa die XOR-Verknüpfung. 


1.6.3.2 Der direkte Weg 


Wenn man es will, kann man den Blitter auch dazu veranlassen, 
alle Verknüpfungen zu unterlassen und die Daten einfach an die 
gewünschte Stelle auf dem Bildschirm zu bringen. Diesen direk- 
ten, aber nicht unbedingt schnelleren Weg begeht man im PSET- 
Modus. 


Wenn wir im letzten Programm einen PUT-Befehl löschen und 
beim anderen PSET mit XOR vertauschen, sehen wir genau 
seine Wirkungsweise. So, wie die Grafik erstellt wurde, so zieht 
sie auch über den Bildschirm. Alles, was ihr im Weg ist, wird 
übermalt. Dabei wird nicht nur das gelöscht, was sich unter un- 
serer Kugel befindet, sondern das ganze Viereck, das wir mit 
GET gespeichert hatten. Denn auch weiße Stellen übertünchen 
bei PUT-PSET den Bildschirm. 


1.6.3.3 Grafiken invertieren 


Wie beim Setzen der Punkte, so gibt es zu PUT-PSET auch ein 
Gegenstück mit dem Namen PRESET. Im PRESET-Modus kann 
man auf einfache Weise eine Grafik invertieren. Dazu reichen 
zwei Zeilen aus: 
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GET (X1,Y1)-(x2,Y2),g 
PUT (X1,Y1),9, PRESET 


g ist ein Ganzzahlfeld, das man vor diesen beiden Zeilen defi- 
niert und dem genügend Speicherplatz zur Verfügung gestellt 
sein muß. 


Eine Grafik zu invertieren bedeutet, jedes Bit der Grafik zu in- 
vertieren. Alle Einsen in den Bit-Ebenen werden dann zu Nul- 
len. Dadurch werden die Farben aus anderen Farbregistern ent- 
nommen als vorher. Das neue Farbregister kann man folgender- 
maßen errechnen: 


Neues Register=2 * Tiefe der Grafik - altes Register 


Wie sich die Farben ändern, können wir auch in einem kleinen 
Programm zeigen: 


REM Farbwechsel mit PRESET 


DEFINT f 
DIM f(400) 


SCREEN 1,320,200,5,1 
WINDOW 2,,(0,0)-(287,30),16, 1 


FOR i=0 TO 31 
LINE (i*9,0)-(i*9+8,40),i,bf 
NEXT i 


WHILE INKEYS=H 
FOR i=31 TO O0 STEP -1 
GET (i*9,0)-(i*9+8,40), f 
PUT (i*9,0), f,PRESET 
NEXT i 
WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


Es gibt zwei verschiedene Möglichkeiten, ein Bild, das mit 
PUT-PRESET invertiert wurde, zu restaurieren. Die erste Mög- 
lichkeit invertiert einfach den gleichen Bereich ein zweites Mal. 
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Diese Technik haben wir im folgenden Programm ausgenutzt. 
Dabei wandert ein Rechteck über den Bildschirm. Überall, wo es 
auftaucht, wird dieser Bereich invertiert. Bevor das Rechteck 
weiterzieht, wird die gleiche Stelle ein zweites Mal invertiert, so 
daß der alte Hintergrund wieder zu sehen ist: 


REM Invertierdemo : 


DEFINT f 
DIM f(100) 


CIRCLE (160,80) ‚100,1 
PAINT STEP(0,0),2,1 
LINEC120,50)-(180,160),1,b 
PAINT (121,51),3,1 
PAINT (179,159) ,1,1 


WHILE INKEY$=UM 
FOR i=0 TO 160 
GET (i,i)-(Ci+20, i+20), f 
PUT (i,i),f,PRESET 
FOR t=0 TO 200: NEXT 
GET (i,i)-Ci+20,i+20), f 
PUT (i,i),f,PRESET 
NEXT i 
WEND 


Die zweite Möglichkeit ist etwas kürzer und einfacher. Nach 
dem Invertieren gibt man die Grafik mit PUT-PSET noch ein- 
mal an derselben Stelle aus. 


1.6.3.4 Und oder Oder 


Es gibt noch zwei weitere Modi der Verknüpfung bei PUT. Da- 
bei.handelt es sich um die einfache Und- und Oder-Verknüp- 
fung. 


Bei diesen Modi werden - wie bei XOR - nicht die Punkte, 
sondern die einzelnen Bits eines Punktes, die seine Farbe ange- 
ben, verknüpft. Bei der Und-Verknüpfung wird nur dann ein 
Bit eines Punktes gesetzt, wenn sowohl bei der mit GET ge- 
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speicherten Grafik als auch beim vorhandenen Bild eine 1 vor- 
liegt. Dabei kann es bei einer Tiefe von zwei mit vier maxima- 
len Farben zu folgenden Kombinationen kommen: 


0O0ANDO =® 
0ANDI1 =0 
1ANDO =0 
1ANDIı1 =1 


Es kommen also nur folgende Farben zustande: 


- Ist ein Punkt blau (00), dann spielt die zweite Farbe keine 
Rolle. Der Punkt ist immer blau (00). 


- Orange (11) und eine zweite Farbe ergibt die zweite Farbe. 
- Bei zwei gleichen Farben bleibt diese Farbe. 
- Weiß (01) und schwarz (10) wird zu blau (00). 


Daß genau diese Kombinationen auftreten, kann man ganz ein- 
fach zeigen: 


REM Und-Verknüpfung 


DEFINT f 
DIM fC100) 


CIRCLE (160,80),100,1 
PAINT STEP(0,0),2,1 
LINEC120,50)-(180,160),1,b 
PAINT (121,51),3,1 

PAINT (179,159) ,1,1 


PRINT "test" 
GET (0,0)-(39,8), f 


FOR i=20 TO 160 STEP 8 
PUT Ci,i),f,AND 
NEXT i 


Mit GET legen wir den Schriftzug "Test" als Grafik im Speicher 
ab. Mit dieser Grafik gehen wir dann über einen vierfarbigen 
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Bildschirm. Wie vorausgesagt, ist die Grafik, in unserem Fall der 
weiße Text, nur bei orangefarbigem und weißem Untergrund zu 
lesen. 


Wenn wir statt AND die OR-Verknüpfung anwenden, tritt ein 
fast gegensätzlicher Effekt ein. Der Text ist bei blauen und 
schwarzem Untergrund zu lesen. Außerdem überdeckt der blaue 
Hintergrund der Schrift diesmal nicht die Bildschirminhalte. Die 
Verknüpfungstabelle zu OR lautet: 


0ORO =0 
ooOR1 =] 
1ORO =ı1 
1OR1 1 


1.7 Animation in BASIC 


Animation ist eine zu Recht viel gerühmte Fähigkeit, auf die Sie 
als Besitzer des Amiga stolz sein können. Sogar in BASIC kann 
man sehr leicht Animation betreiben. Dafür sorgen die zahlrei- 
chen eingebauten Befehle, die alle mit dem Wort OBJECT 
beginnen. 


Um tolle Effeke erzielen zu können, muß man wissen, wie man 
mit diesen Befehlen umgehen muß und kann. Das BASIC-Hand- 
buch erwähnt zwar alle Befehle, zeigt aber nicht, was man aus 
ihnen herausholen kann. So werden zwar das Erstellen von Bobs 
_ mit einem mitgelieferten Programm und die Handhabung der 
Befehle kurz angeschnitten, aber über einige wirklich interes- 
sante Dinge, wie die COLLISION-Maske, ist nichts gesagt. 


1.7.1  Sprites und Bobs 


Die Aniımationsbefehle des BASIC sind sowohl für Sprites als 
auch für Bobs zuständig. Es gibt keine Befehle, die nur für eins 
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von beiden gelten. Manchen unter Ihnen mögen die Begriffe Bob 
und Sprite vielleicht nicht viel sagen, deshalb hier eine kurze 
Definition: 


Wie schon erwähnt, sind beides bewegte Grafiken. Sprites ken- 
nen einige von Ihnen vielleicht vom 64er oder anderen Home- 
computern. Sprites sind beim Amiga bis zu sechzehn Pixel 
breite, beliebig hohe, frei definierbare, hochaufgelöste Grafiken 
mit bis zu drei verschiedenen Farben. Sie bewegen sich sehr 
schnell über den Bildschirm. Ihre Bedienung ist einfach, denn 
sie benötigen nur wenig Programmieraufwand und sind einfach 
zu kontrollieren. 


Bobs sind ähnlich, nur für etwas andere Anwendungen, denn 
ihre Größe ist beliebig, läßt man die Frage des freien Speicher- 
platzes mal außer acht. Sie besitzen, dem jeweiligen Screen ent- 
sprechend, bis zu 32 verschiedene Farben, bewegen sich aber 
langsamer als Sprites. Sie werden auch mit anderer Technik auf 
den Bildschirm gebracht. 


Außerdem unterscheiden sich Bobs und Sprites noch durch ein 
gesetztes bzw. nicht gesetztes Bit in einer Datei, aber dazu später 
mehr. Benutzt man mehr als vier Sprites auf einmal, kann es 
schon zu Komplikationen kommen, während die Zahl der Bobs 
bei grenzenloser Speicherkapazität auch grenzenlos ist. 


1.7.2 Am Anfang war der OBJECT.SHAPE-Befehl 


Im Gegensatz zum guten alten Commodore 64 muß man die 
Daten der Bobs und Sprites nicht selber in den Speicher poken. 
Dafür gibt es den OBJECT.SHAPE-Befehl. Man schreibt alle 
wichtigen Daten einfach in eine Zeichenkette und übergibt diese 
an OBJECT.SHAPE. Das ist aber auch der einzige Weg, mit 
BASIC-Befehlen die Form des Objektes zu bestimmen. 


Aber OBJECT.SHAPE versteht natürlich nicht jede Zeichen- 
kette. Eine Zeichenkette, die die Daten eines Bobs oder Sprites 
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enthält, muß in ganz bestimmter Weise aufgebaut sein. Deshalb 
im folgenden nähere Erläuterungen dazu, wie man ein Objekt 
selbst definiert. 


1.7.3 Erstellen der Objekte 


Damit man diese Schwierigkeiten nicht hat, gibt es Programme, 
die aus einer von Ihnen erstellten Grafik grafische Objekte for- 
men. OBJEDIT, das mitgelieferte BASIC-Programm, ist dieser 
Aufgabe nur begrenzt gewachsen. Es ist unter anderem nicht fä- 
hig, selbstdefinierte Kollisionsmasken oder Schattenbilder zu 
verarbeiten (was das ist und wofür man das braucht, erklären 
wir weiter hinten). 


Wofür hat man alle diese phantastischen Möglichkeiten, wenn 
man sie mangels Software nicht nutzen kann? Nicht verzweifeln, 
Sie haben ja noch uns. 


1.7.4 Eddilll macht es möglich 


Als erstes haben wir ein sehr komfortables Programm geschrie- 
ben, mit dem man Objekte aller Art herstellen kann. Es bietet 
wesentlich mehr Möglichkeiten als OBJEDIT, der mit dem Com- 
puter mitgelieferte Objekt-Editor. Mit unserem Editor, Eddi III, 
kann man Objekte mit einer Breite von bis zu 309 und einer 
Höhe von bis zu 180 Pixeln konstruieren. Man kann die Tiefe 
verändern, den Objekten die verschiedensten Eigenschaften mit- 
geben und seine Objekte im Programm ausprobieren. Zum Ma- 
len hat man sehr viele Befehle zur Auswahl. Wenn einem eine 
Grafik gefällt, kann man sie als Objekt oder auch als einfache 
Grafik abspeichern, die man mit dem PUT-Befehl wieder auf 
den Bildschirm bringen kann. Zusätzlich enthält das Programm 
auch einen Programmgenerator. Wenn man ihn aufruft, werden 
die Daten so auf Diskette gespeichert, daß man sie nachher als 
Programm in den BASIC-Editor einladen kann. 
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Mehr als alle Worte kann das Programm selbst Sie bestimmt 
überzeugen. Wegen seiner Länge wird es wohl nur auf Compu- 
tern mit 5l2 KByte und mehr Speicher laufen. Hier ist es: 


REM KRRUKEKKKKKHTKTIT TEN 


REM Grafik-Editor III 
REM KERKERKKKTRKUTN KT! 
REM 
REM Jens Trapp 12/88 
REM 


CLEAR ‚43000& ‘Arbeitsspeicher vergroessern 
OPTION BASE 1 

DEFINT a-e,fe,g,h,j-r,t-z 

DEF FNecb,h,t)=(3+t*h*INT(C(b+15)/16)) 


REM Farben 
DIM f(32,3) 


REM Menues aendern 


MENU 1,0,1,"Windows" 
MENU 1,1,1,"Laden 
MENU 1,2,1,"Speichern!" 
MENU 1,3,1,'"Probe 5 
MENU 1,4,1,"Loeschen " 
MENU 1,5,1,"Farben " 
MENU 1,6,1,"Prog.Gen." 
MENU 1,7,1,"Ende" 
MENU 2,0,1,"Tools" 
MENU 2,1,2," Punkte 0" 
MENU 2,2,1," Linien " 
MENU 2,3,1," Rahmen " 
MENU 2,4,1," Kaesten!" 
MENU 2,5,1,". Kreise " 
MENU 2,6,1," Fuellen!" 
MENU 3,0,1,"Tiefe" 
MENU 3,1,1," 1" 
MENU 3,2,1," 20 

MENU 3,3,1," 3" 
MENU 3,4,1," 4" 
MENU 3,5,2," 5" 
MENU 4,0,1,'"'Flags" 
MENU 4,1,1," Sprite " 
MENU 4,2,1," Collision!" 
MENU 4,3,1," Shadow * 
MENU 4,4,2," Saveback " 
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MENU 4,5,2,'" Overlay " 
MENU 4,6,1,'" Savebob " 
MENU 4,7,1,"Planepick " 
MENU 4,8, 1,''PlaneOnoff ! 


ON MENU GOSUB verzweigen "'Menues aktivieren 


MENU ON 

MOUSE ON 

REM voreingestellte Werte 

stiefe=5 'Screentiefe 
tiefesstiefe "Tiefe der Grafik 
breite=100 

hoehe=100 

dicke=0 

DIM feld (FNeCbreite,hoehe,tiefe)) 
farbe=1 Farbe = weiss 
farbealt=1 ıRahmenfarbe = weiss 
tool=1 "Anfangsbefehl = "punkte" 


REM flags fuer standartobjekte 
planepick=2"tiefe-1 

saveback=1 

overlay=1 


REM Bildschirm aufbauen 
SCREEN 1,320,200,stiefe, 1 
WINDOW 2,,,16,1 
FOR i=2 TO 4 

FOR j=1 TO 3 

READ f(i,j) 

NEXT j 
PALETTE i-1,f(i,1),fCi,2),f(i,3) 
NEXT i 


DATA 1,1,1,0,0,0,1,.53,0 


GOSUB schirm 


Abfrage: 
a$=INKEY$ 
WHILE a$="" 
x=MOUSE (1) 
y=MOUSE (2) 
LOCATE 24,32 
IF x<breite AND y<hoehe THEN 
PRINT USING " HHRN:X,y; 
ELSE 
PRINT " N 
END IF 
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IF MOUSE(O)<>O THEN GOSUB zeichnen 
a$=INKEY$ 
WEND 


REM Format aendern 
IF ASC(a$)=28 AND hoehe>1 THEN 
LINE (O,hoehe+1)-(breite+1,hoehe+1),8 
hoehe=hoehe- 1 
feld(2)=hoehe 
LINE (0,0)-(Cbreite+1,hoehe+1), farbealt,b 
END IF 
IF ASC(a$)=29 AND hoehe<178 THEN 
LINE (1,hoehe+1)-(breite,hoehe+1),0 
hoehe=hoehe+1 
LINE (0,0)-(breite+1,hoehe+1),farbealt,b 
END IF 
IF fvsprite=0 THEN 
IF ASC(a$)=31 AND breite>1 THEN 
LINE (breite+1,0)-(breite+1,hoehe+1),8 
breite=breite-1 
feld(1)=breite 
LINE (0,0)-(breite+1,hoehe+1),farbealt,b 
END IF 
IF ASC(a$)=30 AND breite<WINDOW(2) THEN 
LINE (breite+1,1)-(breite+i,hoehe+1),0 
breite=breite+1 
LINE (0,0)-(breite+1,hoehe+1), farbealt,b 
END IF 
END IF 
IF ASC(a$)>47 AND ASC(a$)<58 THEN 
dicke=ASC(a$)-48: MENU 2,1,1-(tool=1)," Punkte"+STR$CASC(a$)-48) 
END IF 
IF a$<>"q"! THEN Abfrage 


speichern: b=1 
ERASE feld 
DIM feld(FNe(Cbreite,hoehe,stiefe)) 
GET (1,1)-Cbreite,hoehe), feld 
CALL dateiname(!"'Save'",n$,b) 
IF n$="" OR b=2 THEN RETURN 
OPEN n$ FOR OUTPUT AS 2 
IF b=1 THEN 
GOSUB BFormat 
PRINT #2,8$; 
ELSE 
PRINT #2,breite,hoehe,tiefe 
FOR i=4 TO FNe(Cbreite,hoehe,tiefe) 
PRINT #2,feld(i) 
NEXT i 
END IF 
CLOSE 2 
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RETURN 


ProgGen: b=1 
ERASE feld 


DIM feld(FNeCbreite,hoehe,stiefe)) 
GET (1,1)-(breite,hoehe), feld 
CALL dateiname("ProGen",n$,b) 
IF n$="" OR b=2 THEN RETURN 
OPEN n$ FOR OUTPUT AS 2 
IF b=1 THEN 
GOSUB BFormat 
Laenge =LEN(a$) 
PRINT #2,STR$(Laenge/2) 
a$=3$+MKL$(0) 
FOR i= 1 TO Laenge STEP 2 
IF Ci-1) MOD 24 =0 THEN 
PRINT #2, 
PRINT #2,"DATA "; 
ELSE 
PRINT #2,","; 
END IF 
PRINT #2,STR$CCVICMID$(a$,i,2))); 
NEXT i 
ELSE 
PRINT #2,STR$CFNeCbreite,hoehe,tiefe)) 
feld(3)=tiefe 
FOR i=1 TO FNe(breite,hoehe,tiefe) 
IF Ci-1) MOD 24 =0 THEN 
PRINT #2, 
PRINT #2,"DATA "; 
ELSE 
PRINT #2,","; 
END IF 
PRINT #2,STR$Cfeld(i)); 
NEXT i 
feld(3)=stiefe 
END IF 
PRINT #2, 
CLOSE 2 
RETURN 


BFormat: 
a$=MKL$CO)+MKLSCO) 
a$=a$+MKI1$(O)+MKI$Ctiefe) 
a$=a$+MKI$CO)+MKI$Cbreite) 
a$=a$+MK1$(0)+MKI$Choehe) 
flags=fvsprite+2*collmask+4*shadmask+8*saveback 
flags=flags+16*overlay+32*savebob 
a$=a$+MKI$(flags) 
a$=a$+MK1$(planepick) 
a$=a$+MKI$(planeonoff) 
FOR i=4 TO FNe(breite,hoehe,tiefe) 
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a$=a$+ MKI$Cfeld(i)) 


NEXT i 
IF shadmask THEN 


IF shad$="" THEN GOSUB shad2 
OPEN shad$ FOR INPUT AS 1 
INPUT #1,b,h,t 
IF b<>breite OR h<>hoehe THEN 
LOCATE 10,4 
PRINT "Ungleiches Format der ShadowMask"" 
CLOSE 1 
WHILE INKEY$="":WEND 
GOTO schirm 
END IF 
FOR i=4 TO FNe(breite,hoehe, 1) 
INPUT #1,a 
a$=a$+MK1$(a) 
NEXT i 
CLOSE 1 


END IF 
IF collmask THEN 


IF coll$="" THEN coll2 
OPEN coll$ FOR INPUT AS 1 
INPUT #1,b,h,t 
IF b<>breite OR h<>hoehe THEN 
LOCATE 10,4 
PRINT "Ungleiches Format der CollisionMask" 
CLOSE 1 
WHILE INKEY$="":WEND 
GOTO schirm 
END IF 
FOR i=4 TO FNe(Cbreite,hoehe, 1) 
INPUT #1,a 
a$=a$+MK1$(a) 
NEXT i 
CLOSE 1 


END IF 
IF fvsprite THEN 


FOR i=2 TO 4 'Sprite Farben 
as=zas+MKISCINTCFCI, 1)*19)*256+INTCfli,2)*15)*16+fli,3)*15) 
NEXT i 


END IF 
RETURN 


Die wichtigsten Variablen: 


feld 


Das ist ein kurzes Integerfeld. In dieses Feld werden 
die Bildinformationen geschrieben. Es kann einfach 
mit PUT oder GET auf den Bildschirm gebracht 
werden. 


en 


f 


breite 


hoehe 


tiefe 


stiefe 


xalt 
yalt 
farbe 
farbealt 


tool 
titel 
punkt 
b 
dicke 
n$ 
coll$ 
Shad$ 
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Enthält Farbwerte. Wichtig für die Sprites! 


Breite der Grafik. Da unsere Grafik immer bei (1,1) 
anfängt, gleichzeitig maximaler x-Wert beim Zeich- 
nen. 


Höhe und letzter y-Wert der Grafik. 


Aktuelle Tiefe der Grafik. Dieser Wert beeinflußt 
nicht die Tiefe des Bildschirms. 


Tiefe des Bildschirms. 
gleich. 


Dieser Wert bleibt immer 


x-K.oordinate beim Zeichnen. 


y-Koordinate zum Zeichnen. Der x- und y-Wert 
werden neben dem Farbstrahl angezeigt. 


Anfangskoordinate beim Zeichnen von Linien etc. 
y-Koordinate zu xalt. 
Aktuelle Zeichenfarbe. 


Farbe des Rahmens beim Füllen. Wird bei jedem 
Aufruf von "Füllen" gleich farbe gesetzt. 


Gibt die Nummer des aktuellen Zeichenbefehls an. 
Nummer des aktivierten Menüs. 

Nummer des aktivierten Menüpunktes. 

Hilfsvariable zur Formatunterscheidung. 

Pinselbreite für den Befehl "Punkte". 

Dateiname zum Laden und Speichern. 

Dateiname für die COLLISION-Maske (siehe unten). 


Dateiname für die Shadowmask (siehe unten). 


Alle Objektvariablen und Flags siehe unten. 
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1.7.4.1 Der Bildschirm 


Wenn Sıe das Programm gestartet haben, erscheint Ihr neuer Ar- 
beitsplatz auf dem Fenster: Eddis eigenes Fenster in seinem ei- 
genen Bildschirm. In diesem Fenster sehen Sie zwei Dinge: Zum 
einen alle 32 Farben in kleinen Kästchen am unteren Bild- 
schirmrand, zum anderen eine leere obere Ecke, die durch einen 
weißen Rahmen vom sonst weinroten Fenster abgegrenzt ist. 
Dies ist das Gebiet, in dem sich Ihre Phantasie austoben soll. 
Dort soll die Grafik hineingezeichnet werden. 


1.7.4.2 Ein Programm mit Format 


Das erste, was man für ein Objekt machen sollte, ist seine Größe 
bestimmen. Zwar kann die Größe des Objekts auch später noch 
geändert werden, doch wird man sich am Anfang schon etwas 
über Form und Ausmaß des Objektes im Klaren sein. Wenn Sie 
das Objekt zu groß wählen, also noch sehr viel ungenutzten 
Rand um die Grafik stehen lassen, haben Sie mehr Daten, die 
verwaltet werden wollen. Das wirkt sich natürlich negativ auf 
die Geschwindigkeit aus und sollte darum vermieden werden. 


Die Größe ändert man mit den Cursortasten: Die Größe des 
Objektes wird jeweils um eins vergrößert oder verkleinert. 


Die linke obere Ecke des Objekts bleibt immer in der linken 
oberen Ecke des Bildschirms und läßt sich nicht verändern. 


Sowohl die Höhe als auch die Breite kann man bis auf eins her- 
untersetzen. Da haben wir schon den ersten Superlativ dieses 
Programms. Sogar eine Grafik dieser Größe, sofern man noch 
von Größe reden kann, kann man als Objekt definieren. Damit 
hätten wir das kleinstmögliche Objekt. 


Bei der maximalen Ausdehnung haben wir zwar keinen Superla- 
tiv zu bieten, aber die 312*180 Punkte dürften, wenn man genü- 
gend Speicher hat, für die meisten Gelegenheiten ausreichen. 
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1.7.4.3 Die Tiefe 


Die Tiefe gehört auch zum Format des Objekts. Sie gibt an, wie 
viele Farben ein Objekt maximal haben darf. Bei Tiefe 5 sind es 
32 (2 hoch 5) Farben. Die Tiefe erhält in diesem Programm eine 
gesonderte Stellung, weil man sie auf andere Weise manipuliert. 
Sie hat nämlich ein eigenes Menü. Dort kann man die Tiefe 
abfragen oder ändern. 


Die aktuelle Tiefe ist im Menü durch ein Häkchen gekennzeich- 
net. Die Tiefe ändert man genauso, wie man auch in der Work- 
bench Menüpunkte auswählt. 


Wenn man sie verändert, ändert sich auch die Farbenvielfalt der 
Farbenleiste unten auf dem Bildschirm, denn mit geringerer 
Tiefe lassen sich ja weniger Farben darstellen. Wenn man vorher 
schon ein Bild in voller Farbenpracht auf dem Bildschirm hatte, 
werden auch diese Farben bei Tiefenänderung entsprechend 
verändert. 


1.7.4.4 Die Farbe 


Wenn Sıe sich den Farbenstrahl einmal genauer angeschaut ha- 
ben, werden Sie festgestellt haben, daß das erste Rechteck im 
Verhältnis zu allen anderen viel größer ist. Dieses Kästchen gibt 
nämlich die aktuelle Zeichenfarbe an. 


Die Zeichenfarbe kann man ändern, indem man mit der Maus in 
der Farbenleiste die Farbe seiner Wahl anklickt. 


1.7.4.5 Bilder malen 


Nun kommen wir zum Kernstück des Programms: dem Malen. 
Das Programm hat sechs verschiedene Zeichenmodi. Für die 
Zeichenmodi gibt es auch wieder ein Menü. Im Menü "Tools" 
(englisch für Werkzeuge) gibt es eigentlich alles, was man 
braucht, um ein gutes Bild zu malen. Wenn Sie sich die ent- 
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sprechenden Zeilen im Listing angucken, werden Sie ein Wie- 
dersehen mit allen Grafikbefehlen feiern können, die wir Ihnen 
schon vorgestellt haben. Alle Zeichenbefehle arbeiten mit der 
aktuellen Zeichenfarbe: 


PUNKTE N PUNKTE ist ein Zeichenbefehl, wie wir ihn 
schon in einigen Demos kennengelernt haben. 
Wenn man auf die linke Maustaste drückt, wird 
an der Stelle, an der sich der Mauszeiger gerade 
befindet, ein Punkt zurückgelassen. Dieser Befehl 
hat aber noch eine Besonderheit. Statt des einfa- 
chen Punktes kann man auch mit Quadraten bis 
zu 9*9 Punkten malen. Die Zahl hinter PUNKTE 
gibt immer diese Pinselstärke an. Man kann sie 
jederzeit verändern, indem man auf der Tastatur 
eine Zahl eingibt. 


LINIEN Dieser Befehl entspricht dem BASIC-Befehl 
LINE. Beim gewünschten Anfangspunkt der Linie 
drückt man auf die linke Maustaste und bewegt 
die Maus, während man die Maustaste gedrückt 
hält, zum Endpunkt. Dort läßt man die Taste 
wieder los. Solange man die Maustaste gedrückt 
hält, blinken der Anfangs- und der augen- 
blickliche Endpunkt. Auf diese Weise kann man 
Ziel und Richtung der Geraden besser abschätzen. 


RAHMEN Dieser Befehl malt ein unausgefülltes Rechteck in 
das Fenster. Die linke obere und rechte untere 
Ecke werden genau wie oben erklärt bestimmt. 


KAESTEN Im Gegensatz zu RAHMEN zeichnet dieser Befehl 
gefüllte Rechtecke. Ansonsten genau wie RAH- 
MEN. 


KREISE Bei diesem Befehl kann man die Parameter für 
den CIRCLE-Befehl aus BASIC bedienerfreund- 
lich mit dem Mauszeiger bestimmen. Das funktio- 
niert ähnlich wie beim LINIEN-Befehl. Dort, wo 
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FUELLEN 


man die Taste herunterdrückt, ist der Kreismittel- 
punkt. Der Punkt, an dem man die Taste wieder 
losläßt, gibt die maximale Breite und Höhe des 
Kreises an. Er selbst ist aber nie ein Kreispunkt. 
Die Differenz dieses Punktes vom Mittelpunkt in 
x- und y-Richtung gibt jeweils den horizontalen 
und vertikalen Radius an. Die beiden Punkte, die 
man mit der Maus festlegt, markieren also genau 
ein Viertel des Kreises. 


Der letzte Befehl füllt begrenzte Flächen aus. Da- 
bei kann man im Gegensatz zu OBJEDIT die 
Flächen auch mit einer anderen Farbe als der 
Rahmenfarbe füllen. Die Rahmenfarbe legt man 
automatisch beim Anschalten dieses Befehls fest. 
Es ist immer die zu diesem Zeitpunkt aktuelle 
Zeichenfarbe. Wenn man die Farbe ändert, wäh- 
rend FUELLEN aktıv ist, bleibt die Rahmenfarbe 
erhalten. Die Rahmenfarbe kann man ändern, in- 
dem man einfach ein zweites Mal den FUEL- 
LEN-Befehl aufruft. Welches die aktuelle Rah- 
menfarbe ist, sieht man an der Umrandung des 
Kästchens mit der aktuellen Zeichenfarbe und 
dem Rahmen des Objekts. 


Wenn einem eine Grafik nicht gefällt, kann man mit dem LÖ- 
SCHEN-Befehl aus dem ersten Menü den ganzen Bildschirm lö- 


schen. 


1.7.4.6 Laden und speichern 


Damit man mit den Meisterwerken überhaupt etwas anfangen 
kann, braucht man einen Lade- und einen Speicher-Befehl. Bei 
diesen Befehlen sind der GET- und PUT-Befehl des BASIC 
natürlich unverzichtbar. 
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Eigentlich gibt es hier je zwei unterschiedliche Lade- und 
Speicherbefehle. Wie oben schon angedeutet, kann man die Da- 
ten in zwei verschiedenen Formaten laden oder speichern. 


Das erste haben wir PUT-Format getauft, denn die Daten sınd 
als kurze Integer-Werte abgespeichert. Diese Werte kann man 
ganz normal, wie in den GET- und PUT-Demos dieses Buches, 
laden und auch wieder mit PUT in alter Frische auf den Bild- 
schirm ausgeben. 


Das zweite Format ist nach den Bobs benannt. Mit ihm werden 
die Files für Bobs und Sprites erstellt. Diese Files enthalten ne- 
ben den reinen Bildinformationen noch einige andere Werte für 
Objekte und können von OBJECT.SHAPE verstanden werden. 


Das Programm merkt sich den jeweils letzten Dateinamen eines 
Aufrufs zum Laden oder Speichern. Wenn man dann noch 
einmal auf die gleiche Datei zugreifen will, braucht man nur die 
Return-Taste zu drücken. 


1.7.4.7 Objekte ausprobieren 


Damit man nicht jedesmal den Editor verlassen muß, um sein 
Objekt auszuprobieren, kann man es auch gleich vom Editor 
heraus testen. Wenn dann nicht alles nach Wunsch ist, kann man 
es sehr schnell wieder ändern. 


Objekte, die man austesten will, müssen vorher nicht auf Dis- 
kette abgespeichert werden. Die Daten werden direkt vom Bild 
ın das für den OBJECT.SHAPE-Befehl verständliche Format 
umgewandelt. Man kann ein Objekt also richtig austesten, bevor 
man es speichert. 
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1.7.4.8 Objekte im eigenen Programm laden 


Um die mit dem Editor erstellten Objekte laden zu können, muß 
man die Grafik im Bob-Format abgespeichert haben. Dann kann 
man sie ganz einfach wieder laden. 


OPEN "Dateiname" FOR INPUT as 1 
OBJECT.SHAPE 1,INPUT$CLOFC1),1) 
CLOSE 1 


Nun hat man das Objekt gebrauchsbereit. 


1.7.4.9 Der Programmgenerator 


Wenn man die Daten nicht von Diskette laden möchte, kann man 
sie auch als Daten im Programm ablegen. Das geht folgender- 
maßen vor sich: 


Rufen Sie den Programmgenerator ProGen vom Menü aus auf. 
Nun wird zuerst die Anzahl der Daten abgespeichert. Danach 
werden alle Daten, wahlweise als Objekt- oder PUT-Grafik, in 
DATA-Zeilen verpackt auf Diskette abgespeichert. Beenden Sie 
nun das Programm, dann können Sie die eben abgespeicherten 
DATA-Zeilen als BASIC-Programm einladen. 


Um nun die Grafik oder das Objekt auf den Bildschirm zu 
bringen, brauchen Sie nur folgende Zeilen ergänzen. Bei Objekt- 
Format: 


FOR i=1 TO laenge 
READ a 
a$=a$+MKI$(a) 
next i 


OBJECT.SHAPE 1,3% 


Mit den anderen OBJECT.-Befehlen können Sie das Objekt auf 
dem Bildschirm sichtbar machen. (In den folgenden Programmen 
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finden Sie entsprechende Beispiele.) Den Wert, den Sıe für 
laenge einsetzen müssen, finden Sie beim Einladen immer über 
der ersten DATA-Zeile. 


Für normale Grafiken (im Programm PUT-Format genannt) 
müssen Sie folgende Zeilen zu den DATA-Zeilen ergänzen: 


OPTION BASE 1 
DEFINT f 
DIM feld(laenge) 


FOR i=1 TO laenge 
read feld(i) 
next i 


PUT (0,0), feld 


Daten, die Sie mit ProGen abgespeichert haben, können Sie 
nicht wieder mit Eddi einladen! Speichern Sie die Grafik zusätz- 
lich noch mit der normalen Speicherfunktion ab. 


1.7.5 Die Flags 


Die Flags bestimmen, wie das Objekt auf dem Bildschirm er- 
scheint. Ein Flag nimmt nur zwei verschiedene Zustände ein: 
Entweder es ist gesetzt, also Il, oder ungesetzt und damit 0. 
Mehrere dieser Flags werden in einem Byte zusammengesetzt. 
Alle Flags werden dem Computer in der Zeichenkette, die man 
an OBJECT.SHAPE übergibt, mitgeteilt. Danach kann man sie in 
BASIC nicht mehr verändern. 


In unserem Editor gibt es ein eigenes Menü für die Flags. Ge- 
setzte Flags werden mit einem kleinen Fähnchen im Menü sym- 
bolisiert. 


Neben den Flags gibt es auch noch zweı andere Funktionen in 
diesem Menü: PlanePick und PlaneOnOff. Was es mit diesen 
Funktionen auf sich hat, erklären wir später. 


— N 


1.7.5.1 Das SaveBack-Flag 


Dieses Flag wollen wir zuerst erklären, weil es wohl das ein- 
fachste ist. Grundsätzlich tragen alle Flags Namen, die den Be- 
nutzer an ihre Bedeutung erinnern sollen. So ist es auch bei 
SaveBack. Saveback ıst die Abkürzung für "Save the Back- 
ground". 


Wenn ein Bob gezeichnet wird, wird es zu einem Teil des Bild- 
schirms. Das, was vorher an dieser Stelle auf dem Bildschirm zu 
sehen war, wird einfach übermalt. Damit der Hintergrund ge- 
speichert und nachher, nachdem sich das Objekt bewegt hat, 
wieder restauriert wird, muß man dieses Flag setzen. 


Dagegen bleibt das Bild des Objekts auf dem Bildschirm zurück, 
auch wenn es bewegt wird, wenn das Flag nicht gesetzt wurde. 
Probieren Sie es doch einmal mit einem eigenen Objekt und dem 
Editor aus. | 


Wenn dieses Flag gesetzt ist, kann es bei großen Objekten und 
bei großer Bildschirmtiefe zu einem Flackern kommen. Das 
Flackern entsteht, wenn das Objekt über der zu restaurierenden 
Fläche liegt. Dieses Flackern kann man leider mit BASIC nicht 
verhindern. Deshalb sollte man dieses Flag nur dann setzen, 
wenn man es wirklich benötigt. 


An diese Stelle gehört wohl das erste Beispielprogramm. Da wir 
die Objekte im Buch als Daten im Programm abspeichern müs- 
sen und die Anzahl der Daten bei großen Objekten noch viel 
größer ist, verwenden wir im Beispielprogramm nur kleine Ob- 
jekte. 


REM Flugzeug 

DEFINT a 

SCREEN 1,320,200,2,1 
WINDOW 2,,,16,1 

PRINT "Ich lese die Daten" 


FOR i=1 TO 313 
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READ a 
a$=a$+MK1$(a) 
NEXT i 


LOCATE 10,1 

PRINT "Dies ist ein Objekt-Demo: Sie werden ein 
PRINT "Flugzeug sehen, das ueber den" 

PRINT "Bildschirm fliegt, ohne diese Schrift" 
PRINT "zu zerstoeren!!!!" 


OBJECT.SHAPE 1,8$ 
nocheinmal: 
OBJECT.X 1,1 
OBJECT.Y 1,80 
OBJECT.VX 1 
OBJECT.VY 1 
OBJECT.AX 1 
OBJECT.AY 1 
OBJECT.ON 
OBJECT.START 


‚3 
‚20 
‚h 


2 


WHILE INKEY$="":WEND 
GOTO nocheinmal 


REM Daten fuer Flugzeug 

DATA 0,0,0,0,0,2,0,88,0,25 

DATA 8 :REM Hier werden die Flags gespeichert 

DATA 3,0,8160,0,0,0,0,0,16368,0,0,0,0 

DATA 0,16376,0,0,0,0,0,16380,0,0,896,0 

DATA 0,16382,0,0,-1,-327688&,0,16382,0,1,-28668, - 16384 

DATA 0,16383,0,3, 4100, 24576,0,16383,0,6,4100, 12288 

DATA 0, 16383, -32768, 12, 4100, 614%, 0, 16383, -16384, 24 ,4100,3072 

DATA 0,16383, - 16384 ,48,4100,2044,0,16383,-2048, 127,- -1, 1 

DATA 0,16383 ,-1,-1,-1,-14337,0,16383,,-1,-1,-2048, 12543 

DATA 0,16383,-1,-4,1023,-385,0,4095,-1,-31,-1,-129 

DATA -32768,4095,-1,-497,-1,-129,-32768,1023,-1,-257,-1,-129 

DATA -32768,1023,-1,-257,-1,-129,-32768,1023,-1,-129,-1,-385 

DATA -32768,511,-1,-249,-1,-257,0,7,-1,-32,0,504 

DATA 0,0,0,16383,-1,-32,0,0,0,0,2044,0 

DATA O0 ‚0, ‚0,0,0,0,0,0, 0, 0, 0 

DATA 0,0, ‚0,0,0,0,0,0,0,0,0 

DATA 0,0, 0,0,0,0,8176,0,0,0,0 

DATA 0,1536,0,0,28667,0,1024,1648,0,0,-4101,-32768 . 

DATA 1024 ‚1736,0,0,-4101,-32768,1024 ,1728,0,0,28667 ,8192 

DATA 1024,1728,0,0,28667,-32768,1024,1728,0,0,28667,-32768 

DATA 1024,1728,0,0,0,0,1024,1736,0,0,0,0 

DATA 2048,1648,0,0,0,0,2048,0,0,0,0,0 
0,0,0,1 

512 


0 
0 
0, 
36 


DATA 14336,0,0,0,0,127,-2048,0,0,0,0,127 
DATA -2048,3,-1,-51 
DATA 2048,0,0,256,0, 
DATA 1024,0,0,0,0,0, 
DATA 1024,0,0,0,0,0, 


‚0,0,26624 ,1023,-1,-512,0,0 
0,3072,0,0,0,0,0 
1024,0,0,0,0,0 
1024,0,0,0,0,0,1024 


u | 
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In diesem Programm sind die gebräuchlichsten OBJECT.-Befehle 
enthalten. Die meisten dieser Befehle muß man für jedes Objekt 
angeben. Hier die Bedeutungen im einzelnen: 


OBJECT.SHAPE 


OBJECT.X/Y 


OBJECT.VX/Y 


OBJECT.AX/Y 


OBJECT.ON 


OBJECT.START 


Die Zeichenkette a$, die alle notwendigen 
Informationen enthält, wird dem Computer 
übergeben. Wenn wir nun auf das Bob zu- 
greifen wollen, geben wir immer die Num- 
mer an, die wir dem Objekt bei OBJECT. 
SHAPE zugewiesen haben. In unserem Fall 
ist es die Nummer Il. Oben haben wir ge- 
zeigt, wie man die Daten des Objekts von 
Diskette lädt. 


Mit diesen beiden Befehlen gibt man die 
Startposition an. Der erste Parameter gibt 
jeweils die Nummer des Objekts an. 


Für das angegebene Objekt legt man eine 
Geschwindigkeit fest. 


Die voreingestellte Geschwindigkeit muß 
nicht konstant bleiben. Mit diesem Befehl 
kann man eine Beschleunigung angeben. 


Macht das angegebene Objekt auf dem 
Bildschirm sichtbar. 


Ohne diesen Befehl würde sich das Objekt 
trotz Geschwindigkeitsangabe nicht bewe- 
gen. Dieser Befehl startet die angegebenen 
Objekte. 


An diesem Beispielprogramm kann man sehr gut die Eigen- 
schaften des SaveBack-Flags erkennen. Obwohl das Flugzeug 
mitten über den Text fliegt, bleibt dieser erhalten. 


Wenn Sie sehen wollen, was passieren würde, wenn das Flag 
nicht gesetzt wäre, brauchen wir nur den elften Wert unser Da- 
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tenliste, er steht ganz alleine in der zweiten DATA-Zeile, von 8 
auf 0 zu ändern. Wenn Sie das Programm nun starten, bleibt 
immer eine Ecke vom Flugzeug auf dem Bildschirm stehen. 


1.7.5.2 SaveBob 


Das Flag SaveBob ist in etwa die Umkehrung zu SaveBack. 
Wenn SaveBob gesetzt wird, bleibt das Objekt auf dem Bild- 
schirm stehen. Vielleicht ist Ihnen diese Funktion von den 
großen Malprogrammen bekannt. Man kann auf diese Weise mit 
dem Objekt auf den Bildschirm malen. 


1.7.5.3 Overlay 


Wie Ihnen vielleicht bei unserem kleinen Flugzeug aus dem 
letzten Beispielprogramm aufgefallen ist, überdeckt nicht nur das 
Flugzeug die Schrift, sondern das ganze Rechteck des Objekts, 
auch die Stellen, an denen keine Punkte gesetzt wurden. Dieser 
Effekt ist sicher sehr häufig unerwünscht. Mit dem Overlay- 
Flag kann man Abhilfe schaffen. Wenn dieses Flag gesetzt ist, 
werden alle nicht gesetzten Punkte des Objekts transparent. Man 
kann die Punkte des Hintergrunds sehen, wenn das Objekt an 
einer Stelle keine Punkte hat. Wir können das an unserem Flug- 
zeug ausprobieren. Das Overlay-Flag können wir nachträglich 
setzen, indem wir 16 zur 8 des SaveBack-Flags addieren. Der 
neue Wert der Flags ıst also 24. Nun sind beide Flags aktiviert. 


Das ist eine von vielen Möglichkeiten, die sich mit Overlay bie- 
ten. Die anderen Möglichkeiten ergeben sich in Verbindung mit 
der Schattenmaske. 


1.7.5.4 Die Schattenmaske 


Die Schattenmaske ist eine von zwei Masken, die man pro 
Objekt definieren kann. Mit der Schattenmaske kann man be- 
stimmen, welche Punkte den Hintergrund überdecken und wel- 
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che nur die Farbe des Hintergrunds verändern. Wenn zusätzlich 
das Overlay-Flag gesetzt ist, entscheidet die Schattenmaske, 
welche Punkte des Objektes zu sehen sind. 


Eine Maske muß die gleiche Breite und Höhe wie das zugehö- 
rige Objekt haben. Vom Format sind Maske und Objekt also 
gleich, aber die Tiefe der Maske ist, unabhängig von der Tiefe 
des Objekts, immer eins. Jedes Bit in der Maske entspricht 
einem Bildpunkt des Objekts. Ist ein Bit in der Maske gesetzt, 
dann überdeckt der entsprechende Punkt des Objekts den Bild- 
schirmhintergrund. Bei ungesetztem Punkt entscheidet das Over- 
lay-Flag, was zu tun ist. Ist es gesetzt, dann beeinflußt der je- 
weilge Punkt den Bildschirm in keiner Weise, egal, ob im Objekt 
ein Bildpunkt gesetzt ist oder nicht. Wenn Overlay nicht gesetzt 
ist, verändert sich die Farbe des Bildschirmpunktes. 


Wenn man keine eigene Schattenmaske bestimmt hat, aber das 
Overlay-Flag gesetzt ist, wird automatisch eine Maske vom 
Computer erstellt. In dieser Maske ist jedes Bit gesetzt, bei dem 
auch der entsprechende Bildpunkt des Objekts gesetzt ist. Auf 
diese Weise sind alle ungesetzten Punkte transparent. 


Wenn man beim Editor eine Schattenmaske für ein Objekt 
wünscht, kann man folgendermaßen vorgehen: 


1. Voraussetzung ıst, daß das dazugehörige Objekt schon be- 
steht. Dieses laden wir nämlich als erstes ein. Damit haben 
wir schon mal das richtige Format für die Maske. 


2. Wir stellen die Tiefe auf eins. 


Wir malen die Maske. Dabei können uns vielleicht noch 
verbliebene Punkte des Objekts Anhaltspunkte liefern. 


4. Diese Maske speichern wir im P-Format auf Diskette ab. 


Wir laden die Grafik des zukünftigen Objekts noch einmal 
herein. 
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6. Nun setzen wir das Flag Shadowmask im Flags-Menü und 
geben anschließend den Namen an, unter dem wir die 
Maske abgespeichert haben. 


7. Wir speichern das Objekt im B-Format ab oder probieren 
das Objekt aus. 


Wenn man schon eine Maske vorbereitet hat, kann man natürlich 
auf die ersten fünf Punkte dieser Liste verzichten. 


1.7.5.5 Auf Kollisionskurs 


Die zweite versprochene Maske ist die COLLISION-Maske. 
Diese Maske hat nichts mit dem OBJECT.HIT-Befehl zu tun, 
den wir später noch erklären werden. Die Kollisionsmaske gibt 
an, bei welchen Punkten der Computer eine Kollision "spürt". 
Wäre die Kollisionsmaske ganz leer, würde der Computer nie 
eine Kollision registrieren. Wenn man eine Kollisionsmaske 
definiert, sind alle Punkte mit entsprechend gesetztem Bit in der 
Maske sensitiv. 


Aufbau und Installierung sind mit der Shadowmask identisch. 
Wenn man selber keine Kollisionsmaske definiert, benutzt der 
Computer trotzdem eine Maske. Diese automatisch definierte 
Maske entsteht wieder durch eine logische Oder-Verknüpfung 
aller Bitplanes des Bobs (genau wie die Schattenmaske). Dadurch 
reagiert der Computer auf jede Berührung mit irgendeinem 
Bildpunkt des Objekts. 


In unserem nächsten Programm haben wir neben der Kollisi- 
onsmaske noch viele weitere Möglichkeiten ausgeschöpft, Zu- 
sammenstöße zu überwachen. Alle diese Befehle probieren wir 
an zwei Quadraten aus, die sich über den Bildschirm bewegen. 


REM Kollisionen 


DEFINT a 
RANDOMIZE TIMER 


SCREEN 1,320,200,2, 1 
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WINDOW 2,,,16,1 


PRINT "Ich lese die Daten" 
FOR j= 1702 
FOR i=1 TO 13 
READ a 
a$(j)=a$ j)+MKI$(a) 
NEXT i 
as j)=a$l j)+MKI$C-1)+MKI$C-1) 
FOR i=1 TO 30 
agl j)=a$l j)+MKI$C-32768&)+MKI1$C1) 
NEXT 
a$(j)= a$C j)+MKI$C-1)+MKI$C-1) 
NEXT J 
FOR i=1 TO 30 
a$(2)=a$(2)+MKI$(O) 
NEXT i 
agl2)=a$l2)+MKI$C1)+MKISC-327688) 
agl2)=a$l2)+MKI$SC1)+MKISC-327688&) 
FOR i=1 TO 30 
a$(2)=a$(2)+MKI1$(0) 
NEXT i 


CLS 
OBJECT.CLIP (70,30)-(230,190) 
LINE (70,30)-(230,190),3,b 


ON COLLISION GOSUB zusammenstoss 
COLLISION ON 


OBJECT. 
OBJECT. 
OBJECT. 
OBJECT. 
OBJECT. 
.X 1,150 
.Y 1,80 

.X 2,155 
OBJECT. 
OBJECT. 
OBJECT. 


OBJECT 
OBJECT 
OBJECT 


OBJECT. 
.ON 1,2 


OBJECT 


SHAPE 1,8$(1) 
SHAPE 2,3$(2) 
PRIORITY 1, 1 
HIT 1,3,2 
HIT 2,2,2 


START 1,2 


WHILE INKEY$="" 

LOCATE 2,15 

PRINT OBJECT. XC1);TAB(C21);0BJECT.YC1) 

PRINT TABC15);0BJECT.X(2);TAB(21);0BJECT.Y(2) 
WEND 


' 


WINDOW CLOSE 2 
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SCREEN CLOSE 1 
END 


zusammenstoss: 
n=COLLISION(O) 
m=COLLISION(n) 
mehr: 
IF n=1 AND m<O THEN 
BEEP 
IF ABS(m) MOD 2=0 THEN 
OBJECT.VX 1,(m+3)*CRND*20+1) 
ELSE 
OBJECT.VY 1,(mr2)*(RND*20+1) 
END IF 
END IF 
OBJECT.VX 2,OBJECT.VXC1)+3*SGN(OBJECT.XC1)-1-OBJECT.X(2)) 
OBJECT.VY 2,OBJECT.VYC1)+3*SGN(COBJECT.YC1)-1-OBJECT.YC2)) 
OBJECT.START 
n=COLLISION(O) 
m=COLLISION(n) 
IF m<>0 THEN mehr 
RETURN 


DATA 0,0,0,0,0,1,0,32,0,32 
DATA 24,1,0 
DATA 0,0,0,0,0,1,0,32,0,32 
DATA 10,1,0 


Während die beiden Quadrate über den Bildschirm huschen, 
werden ihre Koordinaten auf den Bildschirm ausgegeben. Dazu 
gibt es die OBJECT.X-Funktion. Neben den Koordinaten kann 
man auch die Geschwindigkeiten der Objekte abfragen. In 
Anlehnung an den entsprechenden Befehl heißt diese Funktion 
OBJECT.VX-Funktion. Die gleiche Funktion gibt es natürlich 
auch für die Y-Richtung. Diese Funktionen sind sehr wichtig, 
zum Beispiel, wenn es darum geht, auf Kollisionen zu reagieren. 


Zu einem Zusammenstoß gehören bekanntlich immer zwei. Des- 
halb gibt es im Programm auch zwei Objekte. Die beiden Ob- 
jekte haben beide die Form eines Quadrats. Beide sind gleich 
groß, haben die gleiche Farbe und bestehen nur aus dem Rah- 
men. Trotz dieser äußeren Ähnlichkeiten sind die Objekte ver- 
schieden. Für das erste haben wir keine Kollisionsmaske erstellt. 
Wie oben erwähnt, nimmt der Computer dann immer alle Bit- 
planes, mit OR verknüpft, als Kollisionsmaske. Bei unserem Bob 
ist die Kollisionsmaske der Rahmen eines Quadrats. 
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Dem zweiten Objekt haben wir selber eine Maske "verpaßt". In 
dieser Maske sind nur die vier mittleren Punkte des Objekts ge- 
setzt. Im Programm halten wir das zweite Objekt im ersten ge- 
fangen. Immer, wenn es sich zu weit vom ersten Objekt entfer- 
nen will, tritt eine Kollision auf, und seine Flucht wird gestoppt. 


Aber auch das Quadrat des ersten Objekts kann sich nicht frei 
bewegen. Es kann sich nur in einem abgesteckten Bereich auf 
dem Bildschirm bewegen. Den Bereich, in dem sich die Objekte 
bewegen können, kann man mit OBJECT.CLIP begrenzen. 


Daß man überhaupt auf Zusammenstöße reagieren kann, ver- 
dankt man den COLLISION-Anweisungen. Ihrer gibt es drei. Sie 
sind die einzigen Befehle, die nicht mit dem Wort OBJECT be- 
ginnen. Mit dem ersten sagt man dem Computer, wohin er ver- 
zweigen soll (ON COLLISION GOSUB). Doch erst der zweite 
Befehl sorgt dafür, daß verzweigt wird. Mit COLLISION ON 
stellt man die Unterbrechungsfähigkeit nämlich erst an. Ohne 
diesen Befehl würden die Objekte einfach am Rand des ihnen 
erlaubten Bereichs stehenbleiben. 


Die dritte COLLISION-Anweisung dient uns zum Unterschei- 
den, welches Objekt mit wem zusammengestoßen ist. Die Num- 
mer des Objekts erhält man durch COLLISION(0). Den Partner 
bei der Karambolage ermittelt man durch COLLISION(n). n 
muß die Nummer des Objekts sein, das an der Karambolage 
beteiligt war. Statt n kann man also auch COLLISION(0) in 
COLLISION einsetzen. Der Wert, den man erhält, gibt den Kol- 
lisıionspartner an. Ist der Wert kleiner null, trat eine Kollision 
mit dem Rand auf. 


COLLISION(COLLISION(0)) Rand 


-1 oben 
-2 links 
-3 unten 
-4 rechts 


Manchmal gelingt unserem zweiten Bob tatsächlich die Flucht. 
Das kann immer dann passieren, wenn seine Geschwindigkeit so 
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groß ist, daß er mit seiner Kollisionsmaske über die Maske des 
zweiten Objekts springt, ohne sie zu berühren. Wenn das Objekt 
diese Flucht geschafft hat, kann es sogar aus dem abgesteckten 
Bereich heraus, denn der Rand macht ihm nichts aus. Wie 
kommt das? Man kann als Programmierer selber festlegen, bei 
welchen Karambolagen eine Unterbrechung eintritt. Dafür hat 
man den OBJECT.HIT-Befehl. Und der funktioniert so: Man 
gibt zwei 16-Bit-Masken an. Die erste Maske ist die Me-Maske 
oder Selbstmaske. Die zweite Maske ist die Hit-Maske oder 
Stoßmaske. Wenn ein Objekt mit einem anderen kollidiert, wird 
jeweils eine Me- mit der Hit-Maske des anderen Objekts 
verglichen. Ist bei beiden an der gleichen Stelle eine Eins, wird 
eine Programmunterbrechung veranlaßt. Wenn in einer 
Stoßmaske eines Objekts eine Eins gesetzt ist und das Objekt an 
den Fensterrahmen oder an den Rand des mit OBJECT. CLIP 
eingestellten Bereichs stößt, wird ebenfalls eine Unterbrechung 
herbeigeführt. 


Die Masken werden nicht als Bitfolge, sondern als korrespon- 
dierende Zahl zwischen -32768 und 32767 angegeben. Voreinge- 
stellter Wert der Masken ist -l, was einer vollbesetzten Maske 
entspricht. Das bedeutet, daß bei jedem Zusammenstoß eine 
Unterbrechung eintritt. 


Der letzte neue Befehl in diesem Programm hat eigentlich nicht 
direkt etwas mit Kollisionen zu tun. Man kann mit ihm die Rei- 
henfolge festlegen, in der Objekte auf den Bildschirm gezeichnet 
werden. Das ist besonders bei sich überdeckenden Objekten 
wichtig. Der Befehl lautet OBJECT.PRIORITY. Voreingestellt ist 
null. Je höher die Priorität, desto eher wird ein Objekt ge- 
zeichnet. 


1.7.5.6 Animierte Bit-Ebenen 


Wir haben schon mehrfach erwähnt, daß die Bildinformationen 
der Objekte in verschiedene Bitplanes aufgeteilt sind. Was ist 
mit den Bitplanes eigentlich genau gemeint? Für jeden Bild- 
schirmpunkt gibt es im Speicher mehrere Bits, die die Farbe des 
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Bildpunkts festsetzen. Die Tiefe ist die Anzahl der Bits, die pro 
Bildpunkt zur Verfügung stehen. Die ersten Bits aller Punkte 
bilden die erste Bitplane. Alle zweiten Bits machen die zweite 
Bitplane aus usw. 


Alle Bitplanes sind im Speicher hintereinander angeordnet. Das 
hat, besonders wenn man mit Objekten arbeitet, große Vorteile. 
Dadurch kann man beispielsweise sehr einfach eine weitere Bit- 
plane anfügen oder eine löschen. Dadurch ist es aber auch erst 
möglich, Objekte zu definieren, die eine geringere Tiefe haben 
als der Bildschirm, in dem sie sich befinden. Z.B. könnte man in 
einem Bildschirm mit einer Tiefe von 5 ein Objekt mit Tiefe 2 
laufen lassen. Natürlich verfügt das Objekt dann nur über die 
ersten vier Farben. Halt! Die letzte Aussage war ein Trugschluß. 
Man kann zwar nur über vier Farben verfügen, es müssen aber 
nicht die ersten vier sein. ' 


Es gibt zwei Befehle, mit denen man mit dem gleichen Objekt 
aus unserem letzten Beispiel sehr viele Farbkombinationen mit 
allen 32 Farben erstellen kann. Überzeugen Sie sich selbst: 


REM Demonstrationsprogramm zum 
REM OBJECT.PLANES-Befehl 


SCREEN 1,320,200,5,1 
WINDOW 2,'"Planes-Demo", ‚31,1 


FOR i=1 TO 61 
READ g 
p$=p$+MKI$(g) 

NEXT i 


OBJECT.SHAPE 1,p$ 
OBJECT.ON 


x=50 . 
y=5 


FOR i=0 TO 3 
FOR j=i+1 TO 4 
IF j<>i THEN 
FOR k=0 TO 31 
IF (ck AND 2’i OR k AND 2° j)=0 THEN 
OBJECT.X 1,x 
OBJECT.Y 1,y 
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OBJECT.PLANES 1,2°i+2”j,k 
x=x+20 
IF x>244 THEN 
x=50 
=y+20 
END IF 
END IF 
NEXT 
END IF 
NEXT j 
NEXT i 


LOCATE 22,5 
PRINT "80 verschiedene Farbkombinat ionen"! 


WHILE INKEY$S="" 
WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


DATA 0, 0, 0, 0, 0, 2, 0, 16, 0, 16, 52 
DATA 0, 0, -8180,-8082,-8081,-8081,-8177 
DATA -1,-1,-1,-1,-1,-1,-1025,-1105,-681 
DATA -2049,-1,-4,-2,-1,-1,-1,-1,-1,-1,-1 
DATA -1,-16381,-16381,-16381,-16381 

DATA -16381,-16381,-4,-2,-1,-1,-1,-1,-1 
DATA -1,-1,-1,-1,-1025,-1105,-681,-2049 
DATA -1 


Wie man zählen und lesen kann, gibt es 80 Kombinationen. 
Warum es nicht mehr geben kann, rechnen wir Ihnen später vor. 
Erst einmal möchten wir klären, wie man zu so vielen Farbkom- 
binationen gelangt. Das ermöglichen uns zwei Werte in der Ob- 
jekt-Struktur. Der erste Wert gibt an, in welche Ebenen die Bit- 
planes geschrieben werden. Dadurch ändert sich die Reihenfolge 
der fünf Bits eines Bildpunktes und damit auch die Farbe, in 
der der Punkt erscheint. Dieser Wert heißt PlanePick und findet 
sich unter diesem Namen auch im Editor im Menü Flags wieder. 


Es gibt zehn verschiedene Kombinationen, die zwei Ebenen des 
Bobs in fünf Ebenen des Screens zu verteilen. 


1. 11000 0, 1, 2, 3 
2: 10100 0, 1,4, 5 
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10010 0, 1, 8, 9 
10001 0, 1, 16, 17 
01100 0, 2, 4,5 
01010 0, 2, 8, 9 
01001 0, 2, 16, 17 
00110 0, 4, 8, 9 
00101 0, 4, 16, 17 
10. 00011 0, 8, 16, 17 


a Eee 


Hinter den zehn Kombinationen stehen die Farbregister, aus 
denen sich der Computer bedient, wenn man die Bitplanes in 
andere Ebenen schreibt. In der Zahlenfolge aus Nullen und 
Einsen bedeutet eine Eins, daß in diese. Ebene eine Bitplane ge- 
schrieben wird. Dabei wird die erste Ebene des Objekts immer 
in die erste ausgewählte Ebene des Bildschirms geschrieben. Mit 
PlanePick kann man natürlich nicht nur zwei Ebenen auf fünf 
Bitplanes verteilen. Es geht ebensogut mit weniger bzw. mehr 
Ebenen. 


Dem Editor werden die ausgewählten Ebenen genau wie oben 
durch eine Folge von Einsen und Nullen mitgeteilt. 


Wenn Sie sich angeguckt haben, wo Sie PlanePick !in unserem 
Editor finden, ahnen Sie vielleicht schon die zweite Möglichkeit 
zur Farbänderung. Direkt unterhalb von PlanePick befindet sich 
im Menü der Befehl PlaneOnOff. Dieser setzt in der Objekt- 
Struktur einen Wert, der bestimmt, was mit noch nicht benutzten 
Ebenen des Bildschirms passiert. Alle Ebenen, die nicht von 
PlanePick genutzt werden, gelten als unbenutzt. Wie der Name 
schon sagt, kann man die Ebenen aus- und wieder anschalten. 
Den ausgeschalteten Zustand kennen Sie schon. Das ist nämlich 
der Normalzustand für "unbenutzte" Ebenen. Wenn man eine 
vom Bob unbenutzte Ebene anschaltet, bedeutet das, daß in 
diese Ebene die Schattenmaske geschrieben wird. Mit anderen 
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Worten, die Farbe eines Punktes ändert sich, wenn eine Bitplane 
eingeschaltet wird und in der Schattenmaske das dem Bildpunkt 
entsprechende Bit gesetzt ist. | 


Der Aufbau ist mit PlanePick identisch. Die Werte, die man im 
Editor festlegt, kann man ım Gegensatz zu den Flags noch 
nachträglich verändern. Sonst wäre auch unser Farbkombinati- 
onsprogramm wesentlich komplizierter. Für beide Werte gibt es 
den Befehl OBJECT.PLANES. An ihn gibt man in folgender 
Reihenfolge die Werte Objektnummer, PlanePick und Plane- 
OnOff ein. Hier kann man allerdings keine binäre Zahlenfolge 
eingeben wie ım Editor, sondern man muß diese Werte umrech- 
nen. Dazu kann man folgende Zeile benutzen: 


PlanePick=b1+2*b2+4*b3+8*b4+16*b5 


Für bl bis b5 brauchen Sie nur noch die binäre Zahlenfolge 
einzusetzen. Für PlaneOnOff ist die Umrechnung gleich. 


Durch PlanePick und besonders PlaneOnOff eröffnen sich un- 
geahnte Möglichkeiten für die Animation. Aus einem Bob kann 
man mehrere verschiedene Figuren erzeugen. Auf diese Weise 
haben wir eine Art Olympiafeuer auf dem Bildschirm erzeugt. 
Die züngelnden Flammen und die verschiedenen Farben entste- 
hen, wenn wir PlanePick und PlaneOnOff verändern. 


REM Feuer 
DEF FNplanes=CINT(RND)*4+CINTCRND)*8+CINTCRND)*16 


FOR i= 1 TO 274 
READ a 
a$=a$+MKI1$(a) 
NEXT i 


SCREEN 1,320,200,5,1 
WINDOW 2,,,,1 


PALETTE 0,0,0,0 
PALETTE 4,1,.5,0 
PALETTE 8,1,0,0 
PALETTE 12,1,.26,0 
PALETTE 16,1,.4,0 
PALETTE 20,.8,0,0 
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PALETTE 24,.95,.5,0 
PALETTE 28,1,.9,0 


LOCATE 2,5 
PRINT "Das ewige Feuer" 


LINE (96,120)-(110,180) ,26,bf 
CIRCLE (103,70),60,27,4.02,5.4 
LINE (66,108)-(140,108),27 
PAINT (100,110),27 


OBJECT.SHAPE 1,8$ 
CLOSE 1 | 
OBJECT.X 1,79 
OBJECT.Y 1,79 
OBJECT.ON 1 


feuer: 

a=FNplanes 

IF a=28 THEN a=24 
OBJECT.PLANES 1,a 

FOR i=0 TO 10:NEXT 
OBJECT.PLANES 1,,FNplanes 
FOR i=0 TO 10: NEXT 

GOTO feuer 


DATA 0,0,0,1152, 16384 ‚0,1665 ,- 16384 ‚,32,1792 

DATA -16384,,16,1671,-32768,48,902,0,18,5661 ,-32768 

DATA 26, -30194 ,128,12,-20869 ,256,7,-14609,- 13824 ‚3 

DATA 15999, -15872,0,-257,-17664,0,-1554 ,23040,0,-7434 
DATA -8704,0,-18441,5120,0,27399 ,18432,0,30230 ‚16384 
DATA 0,29704,16384 ,0,-32752,0,0,0,0,0 

DATA 0,0,0,0 

DATA 0,0,192,0,0,320,0,0,320,128 

DATA 0,480, 1920,0,416,7680,256,1888, 16128 ,896 

DATA 1664, -1024,896, 16353 ,-9216,992, - 16607, -208,976, -20702 
DATA -2044 ,504 ‚32727, 26652 ,404 ,8013, 26728 ,252 ,4991 ‚29040 
DATA 210, 15420,31728,122,-21928,-3088,77,-21544,16128,46 
DATA 8360,8896,50,56,960,10,-32176,8384 ‚10, - 16384 

DATA -32640,6,12,-24320,5,271,8192,2,-31244 ,-32768 

DATA 0,-32657,-26624 ,0,-32745,12288,0,0,8192,0 

DATA 2,0,0,6 

DATA 0,0,6,0,0,7,0,0,3,0 

DATA 0,9,0,0,11,256,0,10,768,1 

DATA 28,3328,1,26,4608,2,62,8704 ,2,206 

DATA 8704,6,460,30208,6,460 ,28160,15 ,510, 17920 
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DATA 31,3486,-31744 ,4,-27235,19968,20,21022, 19456,5 
DATA 13132,7168,21,-26168,12288,7,-25524,-4096,1,22590 
DATA 28672,2,-10628,20480,3,-3279,0,1,29903, - 20480 
DATA 0,19525,12288,0,11577,0,0,1033,0,0,11777,0 


In unserer Flamme kommen nur acht verschiedene Farben vor. 
Es sind die Farben aus den Registern 0, 4, 8, 12, 16, 20, 24, 28. 
Diese Farben haben wir geändert. Alle anderen Farben sind frei 
verfügbar. 


In der Flamme sind mehrere Kombinationen der beiden Ebenen 
und der Schattenmaske möglich. Es kann vorkommmen, daß 
beide Ebenen von PlanePick "gepickt" werden. Es ist aber auch 
möglich, daß nur eine oder gar keine Bitplane gezeichnet wird. 
Außerdem kann jede noch nicht belegte Ebene mit PlaneOnOff 
angeschaltet sein. 


Und das alles ist doch mit relativ wenig Aufwand zu arrangie- 
ren. Genauso lassen sich noch ganz andere Objekte aufbereiten. 
Zum Beispiel kann man die Explosion eines Raumschiffs, das 
Zwinkern eines Auges oder Lippenbewegungen und noch vieles 
mehr in einem Objekt verpacken. 


1.7.6 Die Alternative: Sprites 


Bis jetzt sind die Sprites bei unserer Beschreibung der Anima- 
tion ziemlich kurz gekommen. Wir haben ihr Vorhandensein nur 
kurz erwähnt. Für Sprites gilt vieles, was wir schon für Bobs 
erwähnt haben. Alle BASIC-Befehle gelten sowohl für Bobs als 
auch für Sprites. 


1.7.6.1 Der feine Unterschied 


Wenn man gerne ein Sprite konstruieren möchte, braucht man in 
unserem Editor nur das Sprite-Flag zu setzen. Wenn man das 
gemacht hat, werden alle anderen Punkte dieses Menüs in 
Geisterschrift erscheinen. Mit diesen Punkten kann man nämlich 
nichts mehr anfangen, weil sie keine Wirkung auf Sprites haben. 
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Sprites werden immer mit den Eigenschaften geboren, die durch 
gesetzte Overlay-Flags und SaveBack-Flags bei Bobs zu er- 
reichen sind. 


Auch bei der Tiefe sind die Auswahlmöglichkeiten stark be- 
schränkt. Sprites haben immer nur drei verschiedene Farben. Das 
entspricht einer Tiefe von 2. 


Sprites haben ganz bestimmte Eigenschaften. Ein Sprite ist im- 
mer nur 16 Pixel breit. Seine Höhe ist nicht eingeschränkt. 
Sprites bewegen sich schneller über den Bildschirm als Bobs. 


1.7.6.2 Farbige Sprites 


Die Farben der Sprites sind im Gegensatz zu Bobs nicht von der 
Tiefe des Bildschirms abhängig. Sprites bringen nämlich ihre 
eigenen Farben mit. Diese Farben stehen in keinem Register, 
sondern es sind ihre eigenen Werte. Trotzdem gibt es keine 35 
oder mehr verschiedenen Farben. Die Farben, die ein Sprite 
mitbringt, verändern auch die Farben auf dem Bildschirm. Al- 
lerdings nur Farben, die unterhalb des Sprites sind. Wenn die 
Punkte eines Farbregisters sowohl ober- als auch unterhalb des 
Sprites liegen, haben die Punkte unterschiedliche Farben. 


Die Register, in die das Sprite seine Farben legt, kann man nicht 
selber bestimmen. Eddi nimmt für Sprites immer die Farben der 
Register I bis 3. Wollen Sie dem Sprite andere Farben mitgeben, 
müssen Sie die Werte dieser Register ändern. 


1.8 Grafik mit GFA-BASIC 


AmigaBASIC gibt es schon genauso lange wie den Amiga selbst. 
Seit sehr viel kürzerer Zeit gibt es jetzt auch eine GFA-BASIC- 
Version für diesen Computer. Ein neues Programm verkauft sich 
nur dann, wenn es auch Vorteile gegenüber den schon vorhan- 
denen bietet, und GFA hat so einiges zu bieten. 
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1.8.1 Schneller und immer schneller... 


Der deutlichste Unterschied zwischen diesen beiden BASIC- 
Versionen ist die Arbeitsgeschwindigkeit. GFA-BASIC arbeitet 
viel schneller als AmigaBASIC und eröffnet damit dem Pro- 
grammierer ganz neue Möglichkeiten. Wenn Sie im Besitz von 
GFA-BASIC sind, dann können Sie ja einmal folgendes GFA- 
Programm mit dem entsprechenden AmigaBASIC-Programm aus 
Kapitel 1.2.3 vergleichen. 


OPENS 1,0,0,320,256,6,&H800 
OPENW O0 
=63 
DIM x(1,a),y(1,a) 
x(0,0)=150 
y(0,0)=100 
x(1,0)=170 
y(1,0)=100 
WHILE INKEY$=""" 
FOR z=0 TO a 
COLOR O0 
LINE x(0,z),y(0,z),x(1,2),y(1,z) 
FOR i=0 TO 1 
REPEAT 
xCi,z)J=ABS(x(Ci,alt)+RND*20-10) 
UNTIL x(i,2)<320 
REPEAT 
y(Ci,z)=ABS(y(i,alt)+RND*20-10) 
UNTIL y(i,2z)<256 
NEXT i 
fi=f1.MOD 63+1 
COLOR f1 
LINE x(0,z),y(0,z),x(1,2),y(1,z) 
alt=z 
NEXT z 
WEND 


Dieses Programm zeichnet, genau wie das Programm in Kapitel 
1.2.3, ein scheinbar wildgewordenes Linienbündel auf den Bild- 
schirm, halt nur wesentlich schneller. 
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1.8.2 Die Grafikbefehle 


Die beiden Programme unterscheiden sich nicht nur in ihrer 
Geschwindigkeit, sondern auch in Programmstruktur und Be- 
fehlsnamen. | | 


Obwohl man auch hier einen BASIC-Interpreter vor sich hat, 
scheinen die beiden Programme in unterschiedlichen Sprachen 
geschrieben worden zu sein. Zum einen ist der Standard-BASIC- 
Wortschatz von GFA um einige neue Befehle aufgestockt wor- 
den. Diese Befehle sind aus anderen Sprachen entlehnt, sie wol- 
len wir hier aber nicht besprechen. Uns interessieren nur die 
Unterschiede in der Grafikprogrammierung. 


Es gibt leider keinen Grafik-Befehl-Standard, und so kommt es, 
daß die Grafik-Befehle von Amiga- und GFA-BASIC völlig 
verschieden sind. Mal ist nur das Format neu, mal nur der Name 
geändert, und so manches Mal ist nichts mehr ähnlich geblieben. 
Wie sich die Befehle geändert haben, kann man sehr gut der fol- 
genden Tabelle entnehmen. Besonders nützlich dürfte diese Ta- 
belle den Umsteigern sein. Sie können genau sehen, wie sie in 
GFA-BASIC den selben Effekt erzielen wie mit dem alten BA- 
SIC. Umgekehrt gilt dies natürlich genauso. 


Die Reihenfolge, mit der die Befehle durchgegangen werden, ist 
den vorherigen Kapiteln angepaßt. 


Aufgabe AmigaBASIC | GFA-BASIC 
Punkte 
setzen PSET (x,y) PLOT x,y 
oder 
DRAW x,y 
löschen PRESET (x,y) keine Entsprechung 
farbig PSET (x,y),f COLOR f 
PLOT x,y 


abfragen PRINT POINT(x,y) PRINT POINT(x,y) 
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Aufgabe 


relativ 


Linien 


einfach 


farbig 


relativi 


relativ2 


Rechtecke 


gerahmt 


gefüllt 


Kreise 


einfach 


farbig 


Ellipsen 


Teilbogen 


Flächen füllen 


allgemein 
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AmigaBASIC 


PSET STEP (x,y) 


LINE (x1,y1)-(x2,y2) 


LINE (x1,y1)-(x2,y2),f 


LINE -(x,y) 


LINE STEP(x1,y1)-(x2,y2) 


LINE (x1,y1)-(x2,y2),,B 


LINE (x1,y1)-(x2,y2),,BF 


CIRCLE (x,y),r 


CIRCLE (x,y),r,f 


CIRCLE (x,y),r,,.,v 


CIRCLE (x,y),r,,wa,we 


PAINT (x,y) 


GFA-BASIC 


LINE x1,y1,x2.y2 
oder 
DRAW x1,y1 TO x2,y2 


COLOR f 
LINE x1,y1,x2,y2 


DRAW TO x,y 


BOX x1,y1,x2,y2 


PBOX x1,y1,x2,y2 


CIRCLE x,y;r 


COLOR f 
CIRCLE x,y;r 


ELLIPSE x,y‚rx,ry 


FILL x,y 


(Diese Befehle entsprechen sich nicht ganz! Beide Füllfunktionen benutzen 
unterschiedliche Abgrenzungen.) 


farbig 


PAINT (x,y),f 


 COLORf 


FILL x,y,f 
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Aufgabe AmigaBASIC GFA-BASIC 
Begrenzung PAINT (x,y)flf2 COLOR f1 
FILL x,y,f2 


Rechtecke LINE (x1,y1)-(x2,y2),BF PBOX x1,y1,x2,y2 


Kreise CIRCLE (x,y),r PCIRCLE x,y;r 
PAINT (x,y) 

Ellipsen CIRCLE (x,y),r,,,v PELLIPSE x,y,;r 
PAINT (x,y) 

Polygone AREA (x1,y1) POLYLINE n;x(),y() 
AREAFILL POLYFILL 


(Bei GFA-BASIC werden alle n-Eckpunkte in einem Befehl durch Angabe 
von Feldvariablen übergeben. Bei AmigaBASIC wird jeder Eckpunkt 
einzeln mit einem AREA-Kommando eingegeben.) 


Muster 
Linie PATTERN w% DEFLINE w% 


Fläche PATTERN DEFFILL 


(Hier haben wir die Parameter weggelassen, weil die Unterschiede zwischen 
beiden Befehlen sehr groß sind.) 


Farbe 
setzen COLOR f{1,f2 COLOR {1 ,f2 
ändern PALETTE fir,g,b SETCOLOR fır,g,b 


(Bei PALETTE liegen die RGB-Werte zwischen O0 und 1, bei SETCOLOR 
zwischen O0 und 15.) 


GET/PUT 
GET GET (x1,y1)-(x2,y2), feld GET x1,y1,x2,y2,string 
PUT PUT (x1,y1),feld PUT x1,yl,string 


(Bei AmigaBASIC werden die Daten der Grafik in einer Feldvariablen, bei 
GFA-BASIC in einer Zeichenkette abgelegt.) 
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Animation 


(Fast alle Animationsbefehle sind vollkommen identisch in beiden Dialekten 
und deshalb nicht noch einmal aufgelistet.) 


Zur Bedeutung der Variablen: 


x,y,x1,yl,x2,y2 Bildschirmkoordinaten 


x(),yO) Felder mit Koordinaten 

f,fl,f2 Farben 

r Radius 

IX,Ty Entfernung der Kreisbahn vom 
Mittelpunkt in x-,y-Richtung 

V Bildverhältnis: v=rx/ry 

wa,we Anfangs-/Endwinkel 

n Anzahl der Ecken 

feld Ganzzahlfeld 

string Zeichenkettenvariable 


Zu der Tabelle sei noch folgendes gesagt. Nicht alle Befehle ha- 
ben eine Entsprechung in der anderen Sprache. Auch wenn sich 
zwei Befehle nur durch Nuancen unterscheiden, zeigt das 
manchmal schon eine sehr große Wirkung. Auch kommen in die- 
sem Vergleich die jeweiligen stärken eines Dialekts nicht zur 
Geltung und von denen hat gerade GFA-BASIC bei genauerem 
Hinsehen ein ganze Menge. Für viele Dinge, die in AmigaBASIC 
nur über Libraries zu erreichen sind (wie das gemacht wird, 
zeigen wir in den folgenden Kapiteln), gibt es eingebaute Be- 
fehle: Benutzung von Hardware-Sprites, mehrfarbige Muster, 
Arbeiten mit dem Rastport, mehr als 32 Farben benutzen, einen 
Hardcopy-Befehl und noch vieles mehr. 


Wie oben schon erwähnt, so sind die Anımationsbefehle beider 
BASIC-Interpreter größtenteils identisch. Darum können Bobs 
und Sprites, die mit dem Programm Grafik-Edit_II konstruiert 
wurden, ohne Probleme und auf gleiche Weise auch mit GFA- 
BASIC benutzt werden. 
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1.8.3 Die Mandelbrot-Menge 


Im folgenden Programm wollen wir Ihnen zeigen, wie GFA- 
BASIC in der Praxis aussieht. Das Programm zeichnet Bilder aus 
der Mandelbrot-Menge (wegen ihrer Form auch Apfelmännchen 
genannt) auf den Bildschirm. Auch wenn Sie vielleicht mit die- 
sem Begriff nichts anfangen können, so haben Sie bestimmt 
schon solche Grafiken gesehen. 


In diesem Programm sind mehrere verschiedene Grafik-Kompo- 
nenten, die wir auch schon in AmigaBASIC kennengelernt ha- 
ben, eingebaut. Daneben haben wir aber auch einige Grafikbe- 
fehle verwendet, die AmigaBASIC nicht kennt. Wir hoffen, daß 
Sie mit diesem Programm ein kleinen Einblick in die neue 
Sprache bekommen. 


Alle, die sich nicht für das Wie des Programms interessieren, 
können den folgenden Absatz überspringen. Denn man kann 
auch mit dem Programm arbeiten, ohne verstanden zu haben, 
wie es funktioniert. Um dieses Programm zu verstehen, muß 
man mit komplexen Zahlen rechnen können. 


Die Mandelbrot-Menge entsteht durch folgendes Rekursions- 
verfahren: 


X=X hoch 2 + C 


Hierbei sind X und C komplexe Zahlen. C bleibt konstant, 
während X seinen Wert immer verändert. Den obigen Rechen- 
schritt wiederholt das Programm immer wieder. Inzwischen 
prüft, ob der Betrag von X einen bestimmten Wert überschreitet. 
Die Anzahl der Durchläufe bis zum Überschreiten des Grenz- 
wertes wird in einen Farbwert umgerechnet, den der Punkt auf 
dem Bildschirm bekommt, der der Zahl C entspricht. Über- 
schreitet der Betrag von X nach einer bestimmten, von Ihnen 
angegebenen Anzahl von Durchläufen den Grenzwert nicht, wird 
abgebrochen, und der Punkt wird auf schwarz gesetzt. Danach 
wird X gelöscht, und man fängt mit einem neuen C-Wert wieder 
von vorne an. 
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REM Mandelbrot-Menge 
REM 1/89 
REM 
GOSUB schirm 
breite=100 
hoehe=100 
ar=-2.25 
ai=-1.5 
br=0.75 
bi=1.5 
iter=50 
REM Hauptprogramm 
WHILE 1 
GOSUB mandel 
GET x1,y1,x1+breite,y1+hoehe,b$ 
REPEAT 
MOUSE mx ,my,mk 
a$=INKEY$ 
UNTIL mk<>0 OR a$<>"u 
WHILE INKEY$<>MM 
WEND 
IF a$="'gql 
CLOSEW O 
CLOSES 1 
END 
ELSE IF a$="s" 
CLOSEW O0 
CLOSES 1 
GOSUB speichern 
GOSUB schirm 
ELSE IF a$="l" 
CLOSEW O 
CLOSES 1 
GOSUB laden 
GOSUB schirm 
ELSE IF a$="!e! 
CLS 
PRINT "Realeteil " 
INPUT "von :",ar 
INPUT "bis :",br 
PRINT "Imaginaerteil" 
INPUT "von :",ai 
INPUT "bis :",bi 
un 
ELSE IF a$="<" AND iter>10 
iter=iter-10 
b$H= 111 
ELSE IF a$="">" 
iter=iter+10 
p$H= 111 
ELSE IF a$="d" 
HARDCOPY 
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ELSE IF a$="" 
GRAPHMODE 2 
REPEAT 
MOUSE bx,by,mk 
BOX mx,my,bx,by 
BOX mx,my,bx,by 
UNTIL mk=0 
PLOT mx ‚my 
IF mx<>bx AND my<>by THEN 
IF mx>bx 
SWAP mx,bx 
ENDIF 
IF my>by 
SWAP my,by 
ENDIF 
COLOR 1,0 
GRAPHMODE 1 
BOX 10,210,80,226 
TEXT 14,220,"Fenster"! 
BOX 100,210,190,226 
TEXT 104,220, "Ausschnitt" 
BOX 200,210,270,226 
TEXT 204 ,220,"beides" 
REPEAT 
MOUSE px,py,mk 
UNTIL mk=1 
IF px>10 AND px<80 AND py>210 AND py<226 
breite=ABS(mx-bx) 
hoehe=ABS(my-by) 
bi=zai+t(br-ar)*hoehe/breite 
b$H= 111 
ELSE IF px>100 AND px<190 AND py>210 AND py<226 
px=br-ar 
py=bi-ai 
ar=ar+(mx-x1)*px/breite 
br=br+(bx-x1-breite)*px/breite 
aizai+(my-y1)*py/hoehe 
bi=bi+(by-y1l-hoehe)*py/hoehe 
IF ABS(Cbr-ar)/breite>ABS(bi-ai)/hoehe 
hoehe=ABS((bi-ai)*breite/(br-ar)) 
ELSE 
breite=ABS((br-ar)*hoehe/(bi-ai)) 
ENDIF 
b$= un 
ELSE IF px>200 AND px<270 AND py>210 AND py<226 
px=br-ar 
py=bi-ai 
ar=zar+(mx-x1)*px/breite 
br=br+(bx-x1-breite)*px/breite 
ai=zait(my-y1)*py/hoehe 
bi=bi+(by-y1-hoehe)*py/hoehe 
px=breite 
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py=hoehe 
breite=ABS(mx-bx) 
hoehe=ABS(my-by) 
IF x>x1+px 
x=x1+px 
ENDIF 
x=X-mx+(300-breite)/2 
IF mx<x1 OR my<y1 OR by>y1+py 
b$H= 11 
ELSE 
GET mx,my,bx,by,b$ 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
WEND 
PROCEDURE mandel 
COLOR 1,0 
CLS 
PRINT AT(1,1);"Realteil us 
PRINT USING "A HHHHHRN ar; 
PRINT " bis "; 
PRINT USING "AH HHRHHhN br 
PRINT AT(1,2);"Imaginarteil:"; 
PRINT USING "A HAHHHh" ai; 
PRINT " bis "; 
PRINT USING "A HHRHHR" bi 
PRINT AT(1,3);"Iteration :";iter 
x1=(300-breite)/2 
y1=(250-hoehe)/2 
GRAPHMODE 1 
BOX x1-1,y1-1,x1+breite+1,y1+hoehe+1 
PUT x1,y1,b$ 
IF x<x1 OR b$="" 
x=x1 
ENDIF 
WHILE x<=x1+breite 
EXIT IF MOUSEK=1 OR INKEY$<>"" 
cr=ar+(br-ar)*(x-x1)/breite 
FOR y=y1 TO yi+hoehe 
ci=zai+t(bi-ai)*(y-y1)/hoehe 
r=cr 
i=ci 
durchlauf=0 
WHILE (durchlauf<iter) AND (r*r+i*i<4) 
durchlauf=durchlauf+1 
her 
rzr*r-i*i+er 
i=2*h*i+ci 
WEND 
COLOR INT(29*durchlauf/iter)+2 
PLOT x,y 


— TI 


NEXT y 
INC x 
WEND 
RETURN 
PROCEDURE schirm 
RESTORE 
OPENS 1,0,0,320,256,5,0 
OPENW O 
FOR i=0 TO 31 
READ a 
SETCOLOR i,a 
NEXT i 
DATA 7,4095 ,522, 1036, 1551,2319, 2831 
DATA 3343 ,3855 ,3853 ,3851,3850 , 3848 , 3846 
DATA 3842,3840,3628,3643 ,3658,3689 
DATA 3703,3974 ,4005 ,4019,4050,4065 
DATA 4067,4040,4027 ,4046,4079,0 
RETURN 
PROCEDURE speichern 
FILESELECT "Bild speichern", "speichern", "df0:",name$ 
OPEN "O0", #1 ,name$ 
WRITE#1,breite,hoehe,ar,br,ai,bi,x,LEN(Cb$) 
PRINT #1,b$ 
CLOSE #1 
RETURN 
PROCEDURE laden 
FILESELECT "Bild laden", "Laden", "df0:",name$ 
OPEN "I", #1 ,name$ 
INPUT #1,31$,a2%,a3$,a4$,a5$,a6%,a7$, a8$ 
b$=1INPUT$CVAL(a8$), #1) 
breite=VAL(a1$) 
hoehe=VAL(a2$) 
ar=VAL(a3$%) 
br=VAL(a4$) 
ai=VAL(a5$) 
bi=VAL(a6$) 
x=VAL(a7$) 
CLOSE #1 
RETURN 


Sehr viele Funktionen dieses Programms lassen sich durch die 
Tastatur steuern. 


Eine sehr wichtige Funktion ist das Verändern der Anzahl der 
Iterationen. Mit Iterationen ist die maximale Anzahl der Durch- 
läufe gemeint. Ist der Wert von Iterationen klein, wird das Bild 
schneller berechnet, dafür gehen aber leider auch alle Feinheiten 
verloren. Je tiefer man also in die Mandelbrot-Menge "einsteigt", 
desto größer muß der Wert Iteration gewählt sein. Das hat wie- 
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derum zur Folge, daß der Rechner mehrere Stunden rechnen 
muß. Den Wert von Iterationen verändern Sie durch die Tasten 
"größer als" zum Erhöhen und "kleiner als" zum Verkleinern. 


Da das Programm ziemlich lange an einem Bild rechnet, ist es 
sehr sinnvoll, fertige Bilder abzuspeichern. Diesen Punkt errei- 
chen Sie über die Taste "s". Dagegen kann man mit "l" ein ge- 
speichertes Bild wieder einladen. Es können übrigens nicht nur 
fertige Bilder abgespeichert werden. Wenn Sie ein angefangenes 
Bild Abspeichern, wird die Berechnung nach dem Einladen au- 
tomatisch dort fortgesetzt, wo sie zum abspeichern unterbrochen 
wurde. 


Durch die Taste "e" kann man den Bereich, der auf dem Bild- 
schirm sichtbar ist, manuell eingeben. Dabei sind nur die Rand- 
gebiete der Mandelbrot-Menge interessant. Die Mandelbrot- 
Menge liegt zwischen folgenden Koordinaten: 


- Realteil von -2.25 bis 0.75 


- Imaginärteil von -1.5 bis 1.5 


Eine sehr viel bequemere Art der Gebietsauswahl erfolgt über 
die Maus. Hierbei kann man ein Gebiet in Abhängigkeit des 
aktuellen, auf dem Bildschirm sichtbaren Bereichs auswählen. 
Drücken Sie die linke Maustaste an einem der gewünschten Eck- 
punkte des Bereichs, und ziehen Sie den Mauszeiger dann bei 
gedrückt gehaltenem Knopf zum anderen Eckpunkt. Wenn Sie 
den Mausknopf loslassen, wird der neue Bereich berechnet und 
auf den Bildschirm gezeichnet. Auf gleiche Weise kann man 
auch die Größe des Fensters, in dem die Grafik ausgegeben 
wird, einstellen. 


Außerdem kann man die Grafiken durch Druck auf "d" auf dem 
Drucker ausgeben lassen. 
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2. Einstieg in das Amiga-Betriebssystem 


Bisher kamen alle unsere Programme mit den herkömmlichen 
BASIC-Befehlen aus. An dieser Stelle haben wir jedoch die 
Leistungsgrenze des AmigaBASIC-Interpreters erreicht. Viele 
interessante Projekte, die sich mit AmigaBASIC-Befehlen allein 
nicht verwirklichen lassen, wollen wir nun in Angriff nehmen: 
Eine Grafik-Hardcopyroutine zur Ausgabe von beliebigen Gra- 
fiken auf einen Drucker, neue, auch selbstdefinierte Zeichen- 
sätze, 1024x1024 Punkte Super-Bitmap, um nur einiges zu nen- 
nen. 


Gleichzeitig finden Sie zu jedem AmigaBASIC-Programm ein 
entsprechendes Komplement im neuen GFA-BASIC. Dieser In- 
terpreter besitzt eine weit größere Befehlsvielfalt und ermöglicht 
so Dinge, die in AmigaBASIC nur durch geschickte Manipula- 
tionen erreicht werden können. Aber auch GFA-BASIC kann 
(und muß des öfteren) auf Komponenten des Betriebssystems 
zurückgreifen, so daß pure GFA-Anwender ebenfalls auf ihre 
Kosten kommen. 


2.1 Die Befehls-Bibliotheken des Betriebssystems 


Bei den meisten anderen Computern wäre die Zeit gekommen, 
umständliche Maschinensprache-Routinen zu erstellen, um die 
oben angeschnittenen Projekte zu realisieren. Nicht jedoch beim 
Amiga. Die Lösungen zu unseren Problemen existieren bereits, 
und zwar liegen sie im Betriebssystem des Amiga. Dieses besitzt 
eine Reihe von Bibliotheken (engl. Libraries), in denen, sorgsam 
nach Themenbereichen geordnet, hunderte kleiner Maschinen- 
sprache-Routinen abgespeichert sind. Für (fast) jedes Program- 
mierproblem kann man hier die Lösung finden. Es ist also gar 
nicht nötig, selbst langwierig neue Routinen zu entwickeln; le- 
diglich ein Weg muß gefunden werden, an die Systembibliothe- 
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ken heranzukommen. Dieser Weg existiert sowohl für Amiga- 
BASIC als auch für GFA-BASIC, wie die folgenden Seiten 
beweisen. 


2.2 Zugriff auf die Bibliotheken aus AmigaBASIC 


Der AmigaBASIC-Interpreter stellt die beiden Befehle LI- 
BRARY und DECLARE FUNCTION zur Verfügung, um mit 
den Systembibliotheken Kontakt aufzunehmen. Wir werden so- 
fort auf sie eingehen. Unbedingte Voraussetzung für die Nut- 
zung der Systembibliotheken ist jedoch eine Datei, die mit dem 
Suffix .bmap ausgestattet ist. Jede Bibliothek hat ihre eigene 
bmap-Datei, und so sind die folgenden Dateien ganz besonders 
wichtig für die weitere Arbeit: 


graphics.bmap 
exec.bmap 
layers.bmap 
intuition.bmap 
diskfont.bmap 
dos.bmap 


Diese Dateien sind gefüllt mit einer Reihe wichtiger Daten für 
jede einzelne Routine innerhalb der jeweiligen Bibliothek. 
Schließlich wollen Sie sich nicht mit Anfangsadressen, 
Sprungoffsets und Parameter-Registern herumschlagen, und so 
sind diese Informationen bereits automatisch in den bmap.-Da- 
teien abgelegt. 


Bevor Sıe nun weiterlesen, sollten Sie die sechs oben genannten 
Dateien generieren. Hierzu benötigen Sie die im Lieferumfang 
Ihres Amiga enthaltene Diskette namens "Extras". Besitzen Sie 
Ihren Amiga jedoch schon längere Zeit, so ist es ratsam, bei 
Freunden oder Bekannten eine neuere Version dieser Extras- 
Diskette zu beschaffen, da die Beispielprogramme in diesem 
Buch auf dem Stand der Version 1.3 erstellt wurden. Ältere 
Versionen (Version 1.1 und 1.2) unterstützen noch nicht alle 
Befehle, die wir verwendet haben. Ferner sollten auch Kickstart 
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(sofern Sie einen Amiga 1000 besitzen) und Workbench min- 
destens der Version 1.2 entsprechen. Im Zweifelsfall wird Ihnen 
Ihr Händler sicher weiterhelfen können.Auf der oben genannten 
Extras-Diskette befindet sich ein Verzeichnis namens BasicDe- 
mos. In ihm befindet sich das BASIC-Programm ConvertFD. La- 
den Sie dieses. Nun geben Sie bitte ein: 


CHDIR "Extras:FD1.3" (für Extras-Disk Version 1.3) 


Jetzt können Sie die Dateien generieren, indem Sie das Pro- 
gramm starten und auf die erste Frage eingeben: 


graphics_lib.fd 
Auf die zweite Frage antworten Sie: 


LIBS:graphics.bmap 


Hierdurch wird das bmap.-File direkt in das Library-Verzeich- 
nıs der Bootdiskette (meist die Workbench-Disk) kopiert. Sie 
können die Dateien aber auch direkt in Ihr BASIC-Verzeichnis 
kopieren lassen: 


Extras:BasicDemos/graphics.bmap 


Nun wiederholen Sie diese Prozedur für die anderen fünf Da- 
teien (siehe oben). 


Nachdem die Voraussetzungen nun erfüllt sind, kommen wir zur 
Programmierung. Wie eingangs erwähnt, stehen dazu die beiden 
Befehle 


LIBRARY 
DECLARE FUNCTION (...) LIBRARY 


zur Verfügung. Bevor Sie eine (oder mehrere) der Systembiblio- 
theken benutzen können, müssen Sie diese öffnen. Dies geschieht 
mit dem LIBRARY-Befehl. Für die Grafik-Bibliothek sieht 
dieser Aufruf wie folgt aus: Ä 


LIBRARY "graphics.Library" 
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Sehen wir uns einmal an, was das AmigaBASIC tut, sobald es 
auf diesen Befehl stößt: Zunächst sucht es nach der Datei gra- 
phics.bmap. Ist diese Datei nicht im aktuellen Diskettenverzeich- 
nis auffindbar, so wird es im allgemein deklarierten LIBS:-Ver- 
zeichnis gesucht, das sich gewöhnlich auf der Workbench-Dis- 
kette befindet. Wenn Sie also Ihre bmap-Dateien dort speichern, 
so lagern sie am sichersten und werden immer gefunden, auch 
wenn Sie einmal Programme von anderen Disketten verwenden. 
Sollte die Datei graphics.bmap aber in keinem der beiden Dis- 
kettenverzeichnisse gefunden werden, so kommt es unweigerlich 
zu einem "File Not Found"-Error. Sie sehen also, wie wichtig es 
ist, die entsprechenden bmap-Dateien zu generieren und entwe- 
der zusammen mit Ihren BASIC-Programmen oder aber im 
LIBS:-Verzeichnis abzulegen. 


Verlief alles ordnungsgemäß und wurde die Datei gefunden, 
dann wird die entsprechende Systembibliothek - in unserem 
Beispiel die Grafik-Bibliothek - von BASIC geöffnet. Von 
diesem Zeitpunkt an vergleicht der Interpreter bei jedem 
Programmstart Funktionsaufrufe im Programm mit den in der 
bmap-Datei abgelegten Funktionsnamen und entnimmt dieser im 
Bedarfsfall die nötigen Daten wie Library-Offset und 
Registerzuordnungen. Anschließend ruft der Interpreter die 
Maschinenroutine auf und läßt sie ausführen. Wir werden das 
nun an einem kleinen Beispiel demonstrieren. Die Funktion der 
Grafik-Bibliothek, die wir jetzt probeweise aufrufen wollen, 
nennt sich "Text". Sie gibt einen Text beliebiger Länge auf den 
Bildschirm aus. Dabei müssen drei Parameter mitgeliefert 
werden: die Adresse des Rastports (auf den wir gleich noch zu 
sprechen kommen), die Speicheradresses, ab der der 
auszugebende Text gespeichert ist, sowie die Länge des 
auszugebenden Textes in Zeichen. Hier der komplette Aufruf: 


LIBRARY "graphics.library" 


a$ = "Yello World!" 
laenge% = LEN (a$) 
rastport& = WINDOW (8) 


CALL Text (rastport&, SADD (a$), laenge%) 
LIBRARY CLOSE 
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Tippen Sie das Programm nun sorgfältig ab. Vermeiden Sie un- 
bedingt Tippfehler, denn ganz im Gegensatz zu den herkömm- 
lichen BASIC-Befehlen werden Fehlaufrufe hier nicht erkannt 
und durch eine Error-Meldung angezeigt, sondern direkt zum 
Prozessor geschickt, der sich dann eventuell mit einer der ge- 
fürchteten Guru-Meditationen revanchiert. (Alles in allem 
möchten wir aber klipp und klar sagen, daß Ihnen schlimmsten- 
falls sämtliche im Speicher befindlichen Daten verlorengehen - 
nach einem Reset ist Ihr Amiga mit Sicherheit wieder der alte -, 
bleibende Schäden durch ungebändigte Experimentierlust sind 
also nicht zu befürchten.) 


Sobald Sie das Programm starten, wird die Datei graphics.bmap 
gesucht. Anschließend erscheint in der linken oberen Ecke des 
Bildschirms der Schriftzug "Hello World!". Der Aufruf "LI- 
BRARY CLOSE" schließt die Bibliothek wieder, ist aber im 
Grunde nur ein Schönheitsbefehl, der auch weggelassen werden 
kann, denn BASIC schließt alle geöffneten Bibliotheken auch 
ohne Aufforderung bei jedem RUN oder NEW. 


Doch kommen wir wieder zurück zu obigem kleinen Programm. 
Zwei Dinge bedürfen der weiteren Erklärung: das Statement 
"SADD (a$)" und die Variable "rastport&". Der Befehl SADD 
liefert die Adresse der Speicherstelle, ab der der Text im Spei- 
cher liegt. Von dort liest ihn die Routine "Text()". Als Rastport 
bezeichnet man die Kontaktstelle zu einer Zeichenfläche: einem 
Fenster oder einem Screen. Im weiteren Verlauf dieses Buches 
werden wir den Begriff "Rastport" noch wesentlich präzisieren, 
doch genügt es im Augenblick, wenn Sie sich die Adresse des 
Rastports als Angabe vorstellen, die der Text-Routine mitteilt, 
ın welches Fenster sıe schreiben soll. Für Ihr BASIC-Ausgabe- 
fenster findet sich dieser Rastport (bzw. seine Anfangsadresse) 
immer in der Variablen WINDOW(8): 


rastport& = WINDOW(8) 
PRINT rastport& 


Obiges Beispielprogramm hatte lediglich die Aufgabe, die Be- 
nutzung einer Bibliothek zu demonstrieren - nicht mehr. Den- 
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selben Effekt hätte man schließlich ebensogut - wenn auch um 
vieles einfacher - durch ein einfaches PRINT erreichen können. 
Schauen Sie sich nun einmal das nachfolgende Programm an, das 
sich alle bisher gesammelten Erkenntnisse zunutze gemacht hat: 
eine SUB-Routine namens "P". Im wesentlichen nichts weiter als 
ein Ersatz für PRINT, aber bei genauem Hinsehen doch mehr... 


Aufruf: P "text!" 
entspricht: PRINT "text!" 


Aufruf: P "texta! 
entspricht: PRINT "text"; 


2.3 Zugriff auf die Bibliotheken aus GFA-BASIC 


Der Benutzer des GFA-BASIC hat hier einen ganz entscheiden- 
den Vorteil: Alles ist wesentlich unkomplizierter als bei Amiga- 
BASIC, denn der GFA-Interpreter hat alle wichtigen Bibliothe- 
ken bereits von selbst geöffnet, so daß die entsprechenden LI- 
BRARY-Befehle unnötig werden. Auch werden keine bmap- 
Dateien gebraucht; ihre etwas aufwendige Generierung kann sich 
der GFA-Programmierer also ersparen. Schließlich kann auch 
das Deklarieren der Funktionen entfallen, da GFA-BASIC dies 
automatisch vornimmt. So könnte der Aufruf der vorangegange- 
nen Text()-Routine folgendermaßen aussehen: 


OPENW 1 

PLOT 100,100 

a$="Hello Worldi" 

Laenge=LEN(a$) 
rastport%=LPEEK(WINDOW(1)+50) 

VOID Text(rastport%,LPEEK(*a$),laenge) 
“"Text(rastport%,LPEEK(*a$), laenge) 

END 


Der PLOT-Befehl ist hierbei lediglich eingefügt worden, um den 
Text im sichtbaren Bereich des GFA-Fensters zu positionieren, 
da Text immer an die Stelle schreibt, an der der aktuelle Gra- 
fikcursor gerade steht. 
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Wie Sie sehen, benötigt GFA keinerlei Überbau, um Systembe- 
fehle in seinen Programmen verwalten zu können. Der Befehl 
VOID (optional auch -) genügt, um eine Routine (die also kei- 
nen Wert zurückliefern soll) aufzurufen. 


Der Befehlsumfang des GFA-Interpreters ist allerdings so um- 
fassend, daß hier die Verwendung des Betriebssystems-Text() 
überflüssig ist, weil erstens das normale GFA-PRINT schnell 
genug ist und zweitens der GFA-Befehl Text existiert, der dem 
eben behandelten Text() stark entspricht: 


OPENW O0 
WHILE INKEY$="" 
TEXT RAND(640),RAND(256) ,"Hello World!" 
WEND 
END 


Hier werden wahllos Texte an die verschiedensten Bildschirm- 
positionen gedruckt, bis eine beliebige Taste gedrückt wird. 
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3. Intuition - Das Benutzer-Interface 


Wir beginnen unsere Reise durch die Grafikwelt des Amiga mit 
der Systemkomponente "Intuition". Hinter diesem Namen ver- 
birgt sich, wie könnte es anders sein, eine Bibliothek des Be- 
triebssystems (siehe Kapitel 2), die ganz analog zu der bereits 
probehalber verwendeten Grafik-Bibliothek aufgebaut ist. Intui- 
tion ist zuständig für Fenster, Screens, Requester, Alerts (z.B. 
die Guru Meditationen) sowie einiges mehr, was für AmigaBA- 
SIC aber nicht interessant genug ist. 


3.1 Intuition-Fenster 


Sofern Sie nicht mit einem eigenen Betriebssystem arbeiten, 
werden alle Fenster des Amiga von Intuition verwaltet. So auch 
die beiden Standardfenster des AmigaBASIC-Interpreters: "LIST" 
und "BASIC" ebenso wie das Fenster des GFA-Interpreters 
"GFA-BASIC". Eigens für Intuition-Fenster gibt es eine Daten- 
komponente. Sie umfaßt 124 Bytes und enthält die wichtigsten 
Daten eines jeweiligen Fensters. Die Anfangsadresse dieser Da- 
tenstruktur für das aktuelle BASIC-Ausgabefenster ist für Ami- 
gaBASIC immer in der Variablen WINDOW(7) gespeichert und 
für GFA-BASIC ın der Variablen WINDOW(x) zu finden, wobei 
x die Fensternummer ist. Die dort abgelegte Adresse zeigt auf 
einen Datenblock, der folgendermaßen aufgebaut ist: 


fenster&=WINDOW(8) 
Datenstruktur "Window"/Intuition/124 Bytes 


Offset Typ Bezeichnung 


+ 000 Long --> nächstes Fenster 

+ 004 Word X-Koordinate der linken oberen Ecke 
+ 006 Word Y-Koordinate der oberen Kante 

+ 008 Word Breite des Fensters 

+ 010 Word Höhe des Fensters 
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Offset 


+ 012 
+ 014 
+ 016 
+ 018 
+ 020 
+ 022 
+ 024 


+ 028 
+ 032 
+ 036 
+ 040 
+ 044 
+ 046 
+ 050 
+ 054 
+ 055 
+ 056 
+ 057 
+ 058 
+ 062 
+ 066 
+ 070 
+ 074 
+ 078 
+ 079 
+ 080 
+ 081 


Typ 


Word 
Word 
Word 
Word 
Word 
Word 
Long 


Long 
Long 
Long 
Long 
Word 
Long 
Long 
Byte 
Byte 
Byte 
Byte 
Long 
Long 
Long 
Long 
Long 
Byte 
Byte 
Byte 
Byte 
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Bezeichnung 


Y-Koordinate der Maus, rel. zum Fenster 
X-Koordinate der Maus, rel. zum Fenster 
minimale Breite des Fensters 

minimale Höhe des Fensters 

maximale Breite des Fensters 

maximale Höhe des Fensters 
Fenster-Modi 


Bit 0: 1=Vergrößerungsgadget vorhanden 
Bit 1: 1=Verschiebe-Gadget vorhanden 

Bit 2: 1=Vorder/Hintergrund-Gadgets vorh. 
Bit 3: 1=Schließgadget vorhanden 

Bit 4: 1=Vergrößerungsgadget ist rechts 

Bit 5: 1=Vergrößerungsgadget ist unten 

Bit 6: 1=Simple Refresh 

Bit 7: 1=Superbitmap 

Bit 8: 1=Backdrop-Fenster 

Bit 9: 1=Report Maus 


Bit 10: 1=GimmeZeroZero 

Bit 11: 1=Borderless 

Bit 12: 1=Activate 

Bit 13: 1=Dieses Fenster ist aktiv 
Bit 14: 1=Dieses Fenster ist in Request-Mode 
Bit 16: 1=Aktives Fenster mit aktivem Menü 
--> Menü-Header 

--> Titeltext für dieses Fenster 

--> erster aktiver Requester 

--> Double-Click-Requester 

Anzahl der das Fenster block. Request 
--> Screen, in dem Fenster ist 

--> Rastport des Fensters 

Linker Rahmen 

Oberer Rahmen 

Rechter Rahmen 

Unterer Rahmen 

--> Rahmenrastport 

--> erstes Gadget 

--> Eltern-Fenster 

--> Kind-Fenster 

--> Sprite-Data für Pointer 

Höhe des Sprite-Pointers 

Breite des Sprite-Pointers 

X-Offset des Pointers 

Y-Offset des Pointers 
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Offset Typ Bezeichnung 

+ 082 Long IDCMP-Flags 

+ 086 Long --> User Message Port 

+ 090 Long --> Fenster Message Port 
+ 094 Long IntuiMessage Message Key 
+ 098 Byte Detail-Pen 

+ 099 Byte Block-Pen 

+ 100 Long --> Menü-Haken 

+ 104 Long --> Screen-Titeltext 


+ 108 Word GZZ-MausX 

+ 110 Word GZZ-MausY 

+ 112 Word GZZ-Breite 

+ 114 Word GZZ-Höhe 

+ 116 Long --> externe Daten 
+ 120 Long --> User Daten 


Jedes Fenster besitzt einen solchen Datenblock, gefüllt mit den 
entsprechenden Parametern. Um mit diesem Datenblock arbeiten 
zu können, gehen Sie bei AmigaBASIC folgendermaßen vor: 
Zunächst bestimmen Sie das gewünschte Ausgabefenster mit 
Hilfe des Befehls WINDOW OUTPUT. Anschließend finden Sie 
die Anfangsadresse des Datenblockes für dieses Fenster ın der 
Variablen WINDOW(7). Bei GFA-BASIC entnehmen Sie die An- 
fangsadresse der Variable WINDOW(x), wobei wie oben gesagt x 
die Nummer des Fensters ist, dessen Struktur Sie benötigen. 
Nun addieren Sie zu dieser Adresse den jeweiligen Offset-Wert 
des gesuchten Datenfeldes. Wie Sie sehen, gibt es drei verschie- 
dene Feldarten: Byte, Word und Long. Ein Byte-Feld umfaßt 
genau ein Byte. Sie fragen es mittels PEEK ab, verändern es 
durch POKE. Ein Word-Feld ist zwei Bytes groß. Es wird mit- 
tels PEEKW ausgelesen (bei GFA: DPEEK) und durch POKEW 
(bei GFA: DPOKE) manipuliert. Ein Long-Feld schließlich be- 
steht aus vier Bytes und wird analog durch PEEKL (bei GFA: 
LPEEK) ausgelesen und mit Hilfe von POKEL (bei GFA: 
LPOKE) manipuliert. Wir werden das gleich an mehreren Bei- 
spielen verdeutlichen. 
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3.2 Die Fenster-Datenstruktur im Detail 


Sie wissen nun, wie Sie an die entsprechende Datenstruktur für 
Ihr aktuelles Ausgabefenster herankommen. Jetzt werden wir 
diese Datenstruktur Eintrag für Eintrag näher unter die Lupe 
nehmen. Sehen wir uns an, was mit ihrer Hilfe alles bewerkstel- 
ligt werden kann: 


Offset 0: Zeiger zu nächstem Fenster 


Sobald Intuition ein neues Fenster eröffnet (und damit verbun- 
den auch eine neue Window-Datenstruktur schafft), hinterlegt es 
automatisch die Anfangsadresse dieser neuen Struktur in dem 
Datenfeld Nr. 1 der Window-Datenstruktur des zuletzt geöffne- 
ten Fensters. In diesem Datenfeld befindet sich also der Zeiger 
auf das nächstjüngere Fenster. Der Aufruf, 


fenster& = PEEKL (WINDOW (7) + 0) 


GFA: 


OPENW O 
fenster% = LPEEK (WINDOW (0) + 0) 


liefert in der Variablen fenster& die Anfangsadresse der Wın- 
dow-Datenstruktur des nächsten Fensters. Ist fenster& = Null, so 
gibt es keine weiteren Fenster und Ihr augenblickliches Fenster 
wurde zuletzt geschaffen, ist also das jüngste. 


Offset 4/6: Position der linken oberen Ecke 


Offset 8/10: Fensterbreite und -höhe 


Offset 12/14: Koordinaten der Maus 


In diesen beiden Word-Feldern ist die Position der Maus relativ 
zur linken oberen Ecke des Fensters angegeben. Untypischer- 
weise enthält dabei das erste Feld die y- und das zweite Feld die 
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x-Koordinate. Das folgende Programm zeigt, wie sich diese In- 
formationen für ein kleines Zeichenprogramm umsetzen lassen: 


WHILE INKEY$ = !" 


f& = WINDOW(7) 
m.y% = PEEKW (f& + 12) 
m.x% = PEEKW (f& + 14) 
r.links% = PEEK (f& + 54) 
r.oben% = PEEK (f& + 55) 
m.y% = m.y% - r.oben% 
m.x% = m.x% - r.Links% 
PSET (m.x%, m.y%) 

WEND 

GFA: 
OPENW O 


WHILE INKEY$="1 
f%=WINDOW(O) 
my=DPEEK(f%+12) 

=DPEEK( f%+14) 
rl=PEEK(f%+54) 
ro=PEEK( f%+55) 
my=my-ro 
zmx-rl 
PLOT mx,my 
WEND 


Unbekannt sind unter Umständen die Zeilen 5 und 6. Dort wer- 
den die Variablen r.links% und r.oben% definiert. Sıe finden 
eine eingehende Beschreibung dieser beiden Datenfelder ein paar 
Seiten weiter. Da diese Felder die Mausposition relativ zur lin- 
ken oberen Ecke des Fensters (inkl. Rahmen) angeben, muß die 
Breite des oberen und des linken Rahmens abgezogen werden, 
damit korrekte Werte entstehen. 


Wie Sie unschwer erkennen können, entstehen durch dieses pri- 
mitive Malprogramm Punkte anstatt wirklicher Linien, wenn die 
Maus schnell bewegt wird. Dies liegt an der begrenzten Abfra- 
gegeschwindigkeit der Maus. Man kann sich aber behelfen und 
anstatt des PSET-Kommandos den LINE-Befehl verwenden, wie 
das nachfolgende Programm zeigt: 
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TRUE = -1: FALSE = O 


WHILE INKEY$ = !"" 


f& = WINDOW(7) 

m.y% = PEEKW (f& + 12) 
m.x% = PEEKW (f& + 14) 
r.links% = PEEK (f& + 54) 
r.obendk = PEEK (f& + 55) 


m.y% = m.y% - r.oben% 
m.x% = m.x% - r.links% 


IF ok = FALSE THEN 

ok = TRUE 
ELSE 

LINE (ma.x%,ma.y%)-(m.x%,m.y%) 
END IF 


ma.x% = m.x% 


ma.y% = m.y% 
WEND 


Im Grunde ähneln sich die Programme sehr. Beachtenswert ist 
hierbei jedoch die Variable ok. Beim ersten Durchlauf der 
Schleife ıst diese Variable noch FALSE, wird dann aber TRUE. 
Erst wenn dies geschehen ist, beginnt das Programm damit, Li- 
nien zu ziehen. Dies ist notwendig, weil wegen des LINE-Be- 
fehls zwei Koordinaten anstelle einer benötigt werden. Somit 
produziert der erste Durchlauf (mit ok = FALSE) die Anfangs- 
koordinate. 


Wenn Sie bei diesem Programm die Maus extrem schnell bewe- 
gen, fallen gezackte Linien auf. Diese rühren von der Tatsache, 
daß es zeitweise nicht möglich war, beide (x- und y-) Werte 
rechtzeitig zu aktualisieren und somit einer der beiden noch der 
alten Position entspricht. 


Offset 18/20/22/24: Fenster-Limits 


Viele Fenster lassen sich mit der Maus vergrößern und auch 
verkleinern. Hierzu dient bekanntlich ein kleines Gadget in der 
rechten unteren Ecke des Fensters. Wird dieses Element mit dem 
Mauspointer angeklickt und die Maus dann bewegt, so läßt sich 
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die Größe des Fensters nahezu frei bestimmen. Nahezu frei, weil 
jedem Fenster gewisse, individuell festgelegte Minimal- und 
Maximalgrenzen gesetzt sind. Die Mindestbreite und die Min- 
desthöhe liegen in den ersten beiden Feldern als Punkteanzahl 
vor, die Höchstbreite und die Höchsthöhe entsprechend in den 
anderen beiden Feldern. Das folgende Programm zeigt, wie diese 
Werte ausgelesen werden und wıe man selbst eigene Grenzen be- 
stimmen kann. Zu letzterem Zweck wird die Intuition-Funktion 
WindowLimits() aufgerufen - zwar könnte man eigene Werte 
auch direkt in diese Speicherstellen "poken", doch übernimmt 
WindowLimits() selbständig einen Fehlercheck und filtert falsche 
Parameter heraus. 


DECLARE FUNCTION WindowLimits% LIBRARY 


LIBRARY "intuition.Library" 


TRUE = 1: FALSE = 0 


f& = WINDOW (7) 

min.x% = PEEKW (f& + 16) 
min.y% = PEEKW (f& + 18) 

max .x% = PEEKW (f& + 20) 
max.y% = PEEKW (f& + 22) 
PRINT "Parameter fuer Window-Sizing" 
PRINT Vssz=233223223353532335355 8 2835538 
PRINT 


PRINT "Mindestbreite: "; min.x% ;" Punkte." 
PRINT "Mindesthoehe: "; min.y% ;" Punkte." 
PRINT 

PRINT "Hoechstbreite: "; max.x% ;" Punkte." 
PRINT "Hoechsthoehe: "'; max.y% ;" Punkte." 
PRINT 

PRINT "Wollen Sie diese Werte aendern (j/n) ?" 


WHILE jn$ = "" 
lazyline 
jn$ = INKEY$ 
WEND 


IF jn$ = "j" THEN 
PRINT SPACE$ (60) 
INPUT "Neue Mindestbreite"; min.x% 
INPUT "Neue Mindesthoehe "; min.y% 
INPUT "Neue Hoechstbreite"; max.x% 
INPUT "Neue Hoechsthoehe "; max.y% 
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status% = WindowLimits% (WINDOW(7), min.x%, min.y%, max.x%, 
max .y%) 
IF status% = TRUE THEN 
PRINT 
PRINT "Error-frei. Neue Daten implementiert." 
ELSE 
PRINT 
PRINT "ERROR: DIMENSION(CEN) FALSCH GEWAEHLT ." 
END IF 
ELSE 
PRINT 
PRINT "Ok. Ende!" 
END IF 
END 


suUB lazyline STATIC 
LOCATE ‚1 
IF plopp = O0 THEN 
plopp = 1 
PRINT |--.--.--.-- HH... nn 
ELSEIF plopp = 1 THEN 
plopp = 2 
PRINT EI 
ELSEIF plopp = 2 THEN 
plopp = 0 
PRINT 
END IF 
END SUB 


Die Funktion WindowLimits() wird mittels fünf Parametern auf- 
gerufen: 


status% = WindowLimits% (fenster&, mix%, miy%, max%, may%) 


fenster&: <WINDOW(7) (Anfangsadresse der Window-Struktur) 
mix%,miy%: Mindestbreite, Mindesthöhe 
max%,may%: Höchstbreite, Höchsthöhe 


Nach der Ausführung liefert die Routine einen Statusreport zu- 
rück. Ist dieser Wert =1 (TRUE), so verlief alles ordnungsgemäß. 
Ist er jedoch Null, so konnte mindestens einer der angegebe- 
nenen Größen nicht ausgeführt werden. Dies kann daran gelegen 
haben, daß eine Mindestbreite größer war als die augenblickliche 
Breite des Fensters, etc. 
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GFA-BASIC besitzt für obige Aufgabe einen eigenen Befehl, 
der dem WindowLimits()-Befehl sehr ähnlich ıst (und 
wahrscheinlich auf ihm beruht): 


LIMITW Fensternr, minx, miny, maxx, maxy 


Offset 24: Fenster-Modi 


Intuition kennt verschiedene Fensterarten. Zunächst läßt sich je- 
des Fenster mit einer Reihe Extras ausstatten: 


- Vergrößerungs-Verkleinerungs-Gadget 
- Verschiebe-K.opfleiste 

- Vodergrund-Hintergrund-K.nöpfe 

- Schließknopf 


Zudem läßt sich die Refresh-Art festlegen. Darunter versteht 
man die Methode, mit der der Inhalt eines Fensters gespeichert 
wird, falls das Fenster (z.B. durch ein anderes Fenster) verdeckt 
wird. Hier gibt es: 


- SımpleRefresh 
- SmartRefresh 
- SuperBitmap 


Im SimpleRefresh-Modus wird der Inhalt des Fensters gar nicht 
gespeichert. Wird Ihr Fenster kurzfristig von einem anderen 
überschattet, so bleibt anschließend an dieser Stelle in Ihrem 
Fenster ein "Loch". Es ıst dann an Ihnen, dieses zu flicken. An- 
ders im SmartRefresh-Modus, der zwar speicheraufwendiger ist, 
aber ohne weiteres Zutun dafür sorgt, daß Ihr Fensterinhalt un- 
beschadet von wildestem Windowing immer ordnungsgemäß er- 
scheint. Hierzu wird Intuition automatisch alarmiert, sobald ein 
anderes Fenster damit droht, einen Teil des Fensters zu überlap- 
pen. Sofort speichert Intuition den gefährdeten Teil Ihres 
Fensters in einem separaten Stück Speicher. Wird später der be- 
deckte Teil wieder ganz oder teilweise freigegeben, so kopiert 
Intuition unaufgefordert diesen oder ein Bruchstück davon zu- 
rück. Die dritte und speicherplatzaufwendigste Methode bedient 
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sich einer völlig separaten Bitmap: Der gesamte Fensterinhalt 
wird also zu allen Zeiten an separater Stelle im Speicher abgelegt 
und kann dort auch nicht beschädigt werden. Außerdem kann 
auf diese Weise eine viel größere Zeichenfläche geschaffen wer- 
den, als das Fenster groß ist. Diese bis zu 1024 x 1024 Punkte 
große Zeichenfläche kann dann innerhalb des Fensters hin- und 
hergescrollt werden (wie dies programmiert wird, werden wir 
Ihnen an anderer Stelle in diesem Buch verraten). 


Neben diesen Grundattributen eines Fensters gibt es Spezialfea- 
tures: Ein "Backdrop"-Fenster liegt immer hinter allen anderen 
und kann niemals hervorgehoben werden. So ist der Workbench- 
Screen in Wirklichkeit ein solches Backdrop-Fenster, das über 
dem eigentlichen Screen liegt. Ein "GimmeZeroZero"-Fenster ist 
zweigeteilt: Es besteht aus einem Rahmen und einer Zeichen- 
fläche. Das normale BASIC-Fenster ist beispielsweise ein Fenster 
solchen Typs. Dieser Typ ermöglicht völlig ungezwungenes 
Zeichnen, denn es besteht niemals die Gefahr, versehentlich aus 
der Zeichenebene in den Rahmen zu zeichnen (allerdings ver- 
hindert der BASIC-Interpreter auch bei anderen Typen 
solcherlei Mißgeschick). Ein "Borderless"-Fenster schließlich 
besitzt keinen Rahmen. Das gerade erwähnte Workbenchfenster 
vom Typ "Backdrop" ıst zugleich vom Typ "Borderless" - womit 
klarsteht: Diese Attribute können selbstverständlich auch in 
Kombination auftreten. Das folgende Beispiel demonstriert, wie 
man aus einem ganz normalen BASIC-Fenster ein Fenster des 
Typs "Borderless" macht - durch Manipulation des 
enstprechenden Bits in diesem Kontrollfeld und anschließendem 
Aufruf der Funktion "RefreshWindowFrame": 


LIBRARY "intuition.Library" 


Borderless 1 


SUB Role (nr%) STATIC 
Aufruf, NewWindow (Fensternummer) 
u ununnunnnn 1=Basicfenster 
ee: normal: WINDOW Fensternummer,, ,, ‚1 
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WINDOW nr%, ,,„0, 1 
WINDOW OUTPUT nr% 
POKEL WINDOW(7) + 24, PEEKL (WINDOW(7) + 24) OR 211 
CALL RefreshWIndowFrame (WINDOW(7)) 
END SUB 


Offset 28: Der Menü-Header 


Eine besondere Eigenschaft aller Intuition-Fenster ist die Mög- 
lichkeit, ein Menü zu schaffen. Dieses Feld enthält den Zeiger 
auf die Kopfstruktur des Intuition-Menü-Systems für dieses 
Fenster. Für BASIC-Anwendungen sind diese Strukturen jedoch 
zu aufwendig, um in gesundem Verhältnis zum Effekt zu stehen. 
Hier empfehlen sich weiterhin die MENU-Befehle des Interpre- 
ters. 


Offset 32: Titel-Text dieses Fensters 


Jedes Fenster verfügt über einen eigenen Namen, der normaler- 
weise in der Kopfleiste des Fensters eingeblendet ist. Dieser 
Name ist im ASCII-Code abgelegt. Die Anfangsadresse auf die- 
sen Speicherbereich finden Sie in hier. Somit ist Ihnen die Mög- 
lichkeit gegeben, sowohl den augenblicklichen Namen Ihres 
Fensters auszulesen als auch einen eigenen Namen anzugeben. 
Das folgende Programm demonstriert beide Möglichkeiten und 
verwendet zum Setzen eines eigenen Namens die Intuition- 
Funktion SetWindowTitles(), so daß der neue Name sofort in der 
Kopfzeile erscheint. Auf diese Weise könnte man beispielsweise 
zu Anfang eines eigenen Programmes den Namen auslesen und 
speichern, um anschließend über die Kopfzeile auf markante 
Weise mit dem Anwender kommunizieren zu können (oder um 
einen Copyright-Hinweis auszugeben). Bei Programmschluß kann 
dann der zu Anfang abgelegte Originalname wiedereingesetzt 
werden. Hier das Programm: 


LIBRARY "intuition. Library" 


WindowName alter.name$ 
PRINT "Bisheriger Name des Fensters ist: ";alter.name$ 
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SUB 


[1] 
[2] 


[3] 
END 
[1] 


[2] 
[3] 
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LINE INPUT "Ihr neuer Name: ";neuer.name$ 
WindowName neuer.name$ 


LIBRARY CLOSE 
END 


WindowName (text$) STATIC 


Format: WindowName NeuerName$ 
' neuen Namen setzen 


'ıFormat: WindowName Leerstring$ 
‘ Leerstring$ = Namen auslesen 


IF text$ = "" THEN 
name.adr& = PEEKL (WINDOW(7) + par.1%) 


in$ = CHR$ (PEEK( name.adr&)) 
WHILE in$ <> CHR$(O) 


text$ = text$ + in$ 
in$ = CHR$C PEEK(C name.adr& + count%)) 
count% = count% + 1 
WEND 
ELSE 


text$ = text$ + CHR$CO) 

CALL SetWindowTitles (WINDOW(C7), SADD(text$), -1) 
END IF 
SUB 


Hier steht der Offset für dieses Datenfeld 

Ist der angegebene String leer? Dann den Namen des 
Fensters auslesen und dort hinterlegen! 

Der String war nicht leer. Also nullterminieren (mit 
einem O-Charakter als Endkennzeichen abschließen). 


Auch das GFA-Komplement soll Ihnen nicht vorenthalten wer- 
den. Das Auslesen des Namens geschieht durch diese Zeilen: 


OPENW 0 
fn%=LPEEK(WINDOW(CO)+32) 
fname$=CHAR{fn%)} 

PRINT fname$ 
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Der Name des Fensters läßt sich unter GFA hierdurch verän- 
dern: 


TITLEW Fensternr, "Neuer Titel" 


Offset 36/40/44: Requester-Handling 


Hier hinterlegt Intuition interne Informationen bezüglich der 
Auswertung von Requestern. Für BASIC unergiebig. 


Offset 46: Kontakt zum Screen 


An dieser Stelle begegnen Sie einem sehr wichtigen Datenfeld, 
auf das wir in Zukunft noch oft zu sprechen kommen. Natürlich 
gibt es keine Fenster ohne Screen. Zu Anfang existiert zumin- 
dest der Workbench-Screen als Umgebung Ihres Fensters, und 
auch wenn Sie mit Hilfe des SCREEN-Kommandos weitere 
Screens erschaffen haben, hat jedes Fenster "seinen" eigenen 
Screen, in dem es erscheint. Hier findet sich die Anfangsadresse 
auf eine Datenstruktur namens "Screen", auf die wir ein wenig 
später genauestens eingehen werden. Sicher haben Sie es sich 
schon gedacht: Wie jedes Fenster über seine Window-Struktur 
verfügt, gibt es auch für jeden Screen eine eigene Screen- 
Struktur gefüllt mit interessanten Daten. 


Offset 50: Der Rastport des Fensters 


Hier treffen wir endlich auf eine Spur des in Kapitel 2 andeu- 
tungsweise erwähnten Rastports. An dieser Stelle liegt der Zeiger 
auf den Rastport dieses Fensters, der sich als just eine weitere 
Datenstruktur entpuppt. Er stellt den Kontakt her zwischen der 
höheren Intuition-Ebene und der elementaren Welt der Gra- 
phics-Primitives, jener Grundbausteine der Amiga-Grafik, auf 
die wir später eingehen werden. 
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Offset 54/55/56/57: Fensterrahmen 


In diesen vier Byte-Feldern finden sich die Abmessungen des 
Fensterrahmens. Bei der Behandlung der Mauskoordinaten traten 
diese. Daten schon einmal in den Vordergrund. Neben dem Aus- 
lesen dieser Daten steht es Ihnen selbstverständlich frei, andere 
Werte einzusetzen und mittels RefreshWindowFrame() zu akti- 
vieren. Hierbei wird jedoch keine sichtbare Veränderung ein- 
treten, wenn nicht gleichzeitig das im Normalfall in der 
Fenstermitte liegende Layer miteinbezogen und entsprechend 
manipuliert wird. 


Offset 58: Der Rahmenrastport des Fensters 


Wie bereits angeschnitten, verfügen alle GimmeZeroZero- 
Fenster über zwei getrennte Zeichenebenen: Den Fensterrahmen 
sowie den eigentlichen Fensterinhalt. Die hier abgelegte Adresse 
zeigt auf den Rastport des Rahmens. Zwar wird die Struktur 
"Rastport" erst später eingehend behandelt, aber bereits in Ka- 
pitel 2 tauchte wenigstens eine Funktion aus der Grafik-Biblio- 
thek auf, die mit dem Rastport zusammenarbeitet: Die Funktion 
Text() zur Ausgabe einer beliebigen Zeichenkette. Mit ihrer 
Hilfe installiert das folgende Programm eine Statuszeile im Kopf 
Ihres GimmeZeroZero-Fensters: 


LIBRARY "graphics.Library"" 
LIBRARY "intuition.Library" 


main: CLS 
status "Diese Statuszeile faellt ins Auge! (TASTE!) ", 60 


WHILE INKEY$ = !"" 
WEND 


WHILE jn$ <> "je 
status "Eingabemodus: Bitte Namen angeben!", 60 
CLS 
LOCATE 1,1 
LINE INPUT "---> !"; n$ 


status "Kontrollmodus: "' + n$ + "' Korrekt (j/n) ?", 60 
LOCATE 1,1 

PRINT SPACE$ (50) '(3} 

LOCATE 1,1 
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LINE INPUT "---> "; jn$ 
WEND 


status "Experiment abgeschlossen. Taste druecken!", 0 
CLS 


WHILE INKEY$ = 
WEND — 


CALL RefreshWindowFrame(WINDOW(7)) 
LIBRARY CLOSE 
END 


SUB status (text$, weiteX) STATIC 


'Format: status "texttexttext...", breite% 

! status "texttexttext...", O0 (breite = 
i Textbreite) 
' status text$, breite% 

, status text$, 0 (s.o.) 


border.rast& = PEEKL (WINDOWC7) + 58) 
IF border.rast& = O0 THEN 
BEEP 
PRINT "Dies ist kein Fenster vom Typ GimmeZeroZero.'" 
EXIT SUB 
END IF 
fenster.weite% = PEEKW (WINDOW(7) + 8) 
max.zeichen‘ = INT ((fenster.weite% - 86) / 8) 
text.laenge% = LEN(text$) 
IF weite‘ = 0 THEN weite% = text.laenge% 


IF weite% < max.zeichen% THEN max.zeichen% = weite% 
IF text.laenge% < weite% THEN 

text$ = text$ + SPACE$ (weite% - text.laenge”%) 
END IF 


CALL Move (border.rast&, 32, 7) 


CALL text (border.rast&, SADD(text$), max.zeichen‘) 
END SUB 


Zum Programm: 


In der Variable border.rast& wird der Inhalt dieses Datenfeldes 
abgelegt. Ist der Eintrag null, so handelt es sich nicht um ein 
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GimmeZeroZero-Fenster und besitzt somit auch keinen Rah- 
menrastport; das Programm endet dann. 


Andernfalls wird der Text durch die Text()-Funktion der Gra- 
phics-Bibliothek ausgegeben. Die vorangestellte, noch unbe- 
kannte Funktion Move() setzt den Grafikcursor in die ge- 
wünschte Position. 


In GFA-BASIC ist derselbe Effekt sogar noch einfacher pro- 
grammierbar: 


OPENW 1 
FULLW 1 
8 


status_zeile('"Diese Statuszeile faellt ins Auge!"!) 
WHILE INKEY$=""" 
WEND 
WHILE jn$<>"j" 
status_zeile("Eingabemodus: Bitte Namen eingeben! ") 
CLS 
LOCATE 1,1 
LINE INPUT "---> !"ın$ 
8 


status_zeile("Kontrollmodus: "+n$+" Korrekt (j/n) ?") 


LOCATE 1,1 

PRINT SPACE$(50) 
LOCATE 1,1 

LINE INPUT "---> 1; jn$ 


WEND 
I 


status_zeile('"'Experiment beendet. Bitte bel. Taste druecken!") 
WHILE INKEY$=""" 

WEND 

END 

ı 


PROCEDURE status_zeile(text$) 
f%=WINDOWC1) 

r%=LPEEK( f%+58) 

0o%=LPEEK( f%+50) 

IF r%<>0 THEN 
breite=DPEEK(f%+8) 
max=INT((breite-86)/8) 
text$=LEFT$(text$,max) 
RASTPORT r% 

TEXT 32,7,text$ 
RASTPORT 0% 
ENDIF 
RETURN 
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Offset 62: Erstes Gadget 


Gadgets sind kleine (oder auch größere) "Schalt-Elemente", die 
von der Maus betätigt werden können. Dazu zählen beispiels- 
weise der Ein/Aus-Schalter eines Fensters oder seine Vergröße- 
rungsschalter. Dies ist die Adresse auf die erste Gadget-Struktur 
in einer ganzen Kette. Für BASIC ist das aber ohne Belang. 


Offset 66 und 70: Vater- und Kind-Fenster 


Wir erwähnten es bereits bei Offset 0: Intuition verwaltet alle 
Fenster in einer Datenkette. Jedes Fenster besitzt dabei eine ei- 
gene Fenster-Datenstruktur. In jeder Datenstruktur wiederum 
findet sich jeweils ein Zeiger auf das vorangegangene (Vater-) 
Fenster sowie auf das nächstfolgende (Kind-) Fenster. Das erste 
Fenster in der Datenkette besitzt keinen Vater-Zeiger (=0), das 
letzte keinen Kind-Zeiger (=0). 


Diese beiden Felder sind sehr wichtig. Bisher hatten wir ledig- 
lich die Möglichkeit, die Adresse des jeweiligen Ausgabefensters 
in der Variablen WINDOW(7) zu erfragen. Nun können wir von 
jedem beliebigen Fenster jedes beliebige andere Fenster errei- 
chen. Das folgende Beispiel macht dies deutlich: 


HE EHHEEEHHHHEEEEEHHHEEHRHHER 
' 

'# Programm: Fenster-Sucher 

'# Datum: 5. April 87 


ı# Autor: tob 
ı# Version: 1.0 
4 


EHER EETEIHTEEEHTHIHIHHHIHIHIHIHTHIHIHIHHIFIHFTHIHTEEER 
init: fenster& = WINDOW(7) 


'* Nun wird das Ende der Datenkette gesucht. 
ı* Das Eltern-Feld des ersten Elementes ist =0 


WHILE found% = 0 
eltern. fenster& = PEEKL(fenster&+66) 
IF eltern. fenster&=0 THEN 
found% = 1 
ELSE 
fenster& = eltern.fenster& 
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END IF 
WEND 
found% = 0 


ı* fenster& enthaelt nun die Adresse des Fenster- 
ı* Datenblocks des ersten Fensters in der Daten- 

ı* Kette. Nun wird diese Kette abgeklappert, bis 

ı* das Kind-Feld =0 ist. 


WHILE found%=0 
zaehler% = zaehler%+1 
PRINT zaehler%; 
PRINT ". Fenster:" 
PRINT "Adresse der Datenstruktur: ";fenster& 


'* Nun wird der Name des gefundenen Fensters ausgegeben 
ı*% Offset +32 


PRINT "Name des Fensters: "; 
fenster.name& = PEEKL(fenster&+32) 
WHILE ende% = 0 
gef$ = CHR$CPEEK(fenster.name&) ) 
IF gef$ = CHR$CO) THEN 
ende% = 1 
PRINT 
ELSE 
PRINT gef$; 
fenster.name& = fenster.name&+1 
END IF 
WEND 
PRINT 
ende% = 0 
kind.fenster& = PEEKL(fenster&+70) 
IF kind. fenster& = 0 THEN 
found% = 1 
ELSE 
fenster& = kind.fenster& 
END IF 
WEND 


Hier das Programm in GFA: 


OPENW O 
fenster%=WINDOW(O) 
zaehler=0 
WHILE gefunden$<>"gefunden! I 1 
eltern. fenster%=LPEEK( fenster%+66) 
IF eltern. fenster%=0 
gefunden$="!gefunden! I 1" 
ELSE 
fenster%=eltern. fenster‘ 
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ENDIF 
WEND 


WHILE gefunden$<>"!ende erreicht!!!" 
zaehler=zaehler+1 | 
PRINT "" 
PRINT zaehler; 
PRINT ". Fenster: " 
PRINT "Adresse der Datenstruktur: ";fenster% 
PRINT "Name des Fensters: "; 
fenster .name%=LPEEK(fenster%+32) 
PRINT CHAR(Cfenster.name%) 
ß 


kind. fenster%=LPEEK( fenster%+70) 
IF kind. fenster%=0 
gefunden$="ende erreicht!!!" 
ELSE 
fenster%=kind. fenster% 
ENDIF 
WEND 
END 


Durch diese Technik erhalten Sie vollen Zugriff auf alle unter 
Intuition verwalteten Fenster. Sie können so in fremde Fenster 
schreiben, deren Namen verändern etc. etc. Wir werden das 
später an entsprechenden Programmen zeigen. 


Offset 74, 78, 79 und 80: Das Sprite- Image 


Jedes Fenster hat die Möglichkeit, einen eigenen, völlig indivi- 
duell gestalteten Mauszeiger zu erzeugen. Dazu dienen diese Fel- 
der. Sie legen fest, wo das neue Sprite-Image gespeichert ist, wie 
hoch der neue Pointer (beliebig) und wie breit (max 16 Punkte) 
er sein soll. Es ist jedoch nutzlos, hier direkt andere Werte ein- 
zupoken. Wer einen für sein Fenster individuell gestalteten 
Sprite-Pointer benötigt, kann diesen nur via Intuition ("SetPoin- 
ter") implementieren. Wir zeigen Ihnen im Anschluß, wie es ge- 
macht wird: 


LIBRARY "intuition.Library" 
image$="" 


sprite.hoehe% = 14 
sprite.breite& = 16 
sprite.xoff% = -7 
sprite.yoff% = -6 
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RESTORE daten 
FOR loop%=0 TO 31 
READ info& 
hi% INTC info&/256) 
Lo% info&-(256*hi%) 
image$ = image$+CHR$Chi%)+CHR$CLO%) 
NEXT Loop% 
CALL SetPointer(WINDOW(7),SADD(C image$) ,sprite.hoehe%, 
sprite.breite%,sprite.x0Off%,sprite.yOff%) 


CLS 
PRINT "Beliebige Taste = Abbruch" 
PRINT "Linke Maustaste = Zeichnen! 


DIM area.pat%(3) 


area.pat%(0) = &H1111 
area.patX(1) = &H2222 
area.pat%(2) = &H444A 
area.pat%(3) = &H8888 


PATTERN ‚area.pat% 
COLOR 2,3 


WHILE INKEY$="" 
state%=MOUSE (0) 
IF state%<O THEN 
mouseOldX% = mouseX% 


mouseOldY% = mouseY% 
mouseX% = MOUSE(1) 
mouseY% = MOUSE (2) 
IF lplot% = O0 THEN 
Lplot% = 1 
PSET (mouseX% ,mouseY%) 
ELSE Ä 
LINE (mouseOldX% ,mouseOldY%)-(mouseX%,mouseY%), 1,bf 
END IF 
ELSE 
(plot% = O 
END IF 
WEND 
COLOR 1,0 


CALL ClearPointer(WINDOW(7)) 
LIBRARY CLOSE 
END 


daten: DATA 0,0 
DATA 256,256 
DATA 256,256 
DATA 256,256 
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DATA 896,0 
DATA 3168, 0 
DATA 12312,0 
DATA 256,49414 
DATA 256,49414 
DATA 12312,0 
DATA 3168, 0 
DATA 896,0 
DATA 256,256 
DATA 256,256 
DATA 256,256 
DATA 0, 


Offset 82, 86, 90 und 94: IDCMP-Flags und Message Ports 


IDCMP steht für "Intuition Direct Communications Message 
Port". Über diese Nachrichtenkanäle kann Intuition mit anderen 
Tasks, zum Beispiel dem BASIC-Task, kommunizieren. Für Sie 
als Programmierer ist das jedoch uninteressant, denn die Nach- 
richten werden ohnehin von BASIC abgefangen und weiterver- 
arbeitet. 


Offset 98 und 99: Fenster-Farben 


In diesen beiden Byte-Feldern sind die Farbregister abgespei- 
chert, aus denen das Fenster seine Farben bezieht. Sie können 
durch POKE die Farbwerte verändern. Die Veränderung wird 
jedoch von Intuition nicht sofort durchgeführt, sondern erst, so- 
bald das Fenster nachgezeichnet werden muß. Das passiert bei- 
spielsweise, wenn es verschoben oder vergrößert wird. 


Offset 100: Das Check-Mark-Image 


Hier findet sich die Adresse auf eine Kleingrafik. Sicherlich 
kennen Sie die Möglichkeit, im Menü einen kleinen Haken auf- 
tauchen zu lassen, der angibt, welche Selektion augenblicklich 
gilt. Dieses Häkchen bezeichnet man im englischen als "Check- 
Mark", und hier findet sich die Adresse auf den Speicherbereich, 
in dem das Aussehen dieses Hakens definiert ist (bzw. =0, wenn 
das Standard Checkmark Image verwendet wird). 
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Offset 104: Der Screen-Titel 


Der Screen, in dem Ihr Fenster haust, kann verschiedene Namen 
besitzen. Sein Name hängt ab vom selektierten (=aktiven) 
Fenster. Jedes Fenster kann den Screen anders nennen. Es er- 
scheint jeweils der Name, der im aktiven Fenster an der durch 
diese Adresse angegebenen Stelle abgespeichert ist. 


Offset 108, 110, 112 und 114: GimmeZeroZero-Parameter 


Diese Felder werden nur im Falle eines GimmeZeroZero- 
Fensters benötigt. GZZ-MausX und GZZ-MausY verhalten sich 
absolut analog zu den Offset-Feldern 12 und 14: Sie geben die 
Koordinaten des Maus-Pointers an. Diese Koordinaten verstehen 
sich jedoch relativ zur Zeichenebene, nicht zum Fenster. Der 
Nullpunkt liegt in der oberen linken Ecke des Fensterinhaltes, 
nicht in der oberen linken Ecke des Fensterrahmens. 


Die anderen beiden Felder verhalten sich analog zu den Offset- 
Feldern 8 und 10: Hier ist die Breite und die Höhe des Fenster- 
inhaltes exklusive Rahmen gespeichert, nicht die des Fensters 
inklusive Rahmens. 


Offset 116 und 120: Optionale Zeiger 


Mit Hilfe dieser beiden Zeiger lassen sich weitere Datenblöcke 
anderer Natur mit dieser Standard-Struktur verbinden. Der erste 
Zeiger ist dabei für Intuition reserviert, der zweite steht dem 
Anwender zur Verfügung. 


3.3 Die Funktionen der Intuition-Bibliothek 


Sie wissen nun, wie Intuition Fenster verwaltet. Wir können des- 
halb jetzt damit beginnen, die Routinen der Intuition-Bibliothek 
vorzustellen, die zuständig sind für Fenster: 
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SetPointer() 
ClearPointer() 
MoveWindowf() 
SizeWindow() 
WindowLimits() 
WindowToBack() 
WindowToFront() 


3.3.1 Ein individueller Maus-Pointer 


Die Funktion "SetPointer" erlaubt es Ihnen, einen völlig indi- 
viduellen Maus-Pointer für Ihr Fenster zu kreieren. Er wird 
dann immer an Stelle des "normalen" Pointers auf dem Bild- 
schirm erscheinen, sobald Ihr Fenster aktiv ist. 


Die Funktion verlangt sechs Parameter: 


SetPointer(fenster,, image,höhe,breite,xOff,yOff) 


fenster: Adresse der Fenster-Datenstruktur des entsprechenden 
Fensters 

image: Adresse eines Sprite-Image-Blockes 

höhe: Höhe des Sprites 

breite: Breite des Sprites (max. 16) 

xOff: Markiert den "Hot Spot" 

yOff: Markiert den "Hot Spot" 


Bevor wir weitere Worte verlieren, ein entsprechendes Demo- 
Programm: 


TE HHEIHHHHHHEHHHHHFEEEEEEHHHHHR 
'# 

.'# Programm: SetPointer/ClearPointer 

'# Datum: 5.April 87 

ı# Autor: tob 

ı# Version: 1.0 

'# 

EEE EEEHHIHERTETEHHIHTHTHHHHTHTEHER 


" Der Amiga Standard Mauspointer wird durch 
ı einen selbstdefinierten Pointer ersetzt. 
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‚PRINT "Suche das .bmap-File..." 
!INTUITION-Bibliothek 
ISetPointer() 

'!ClearPointer() 


LIBRARY "intuition. Library" 


init: image$=!"" 
sprite.hoehe% = 14 
sprite.breite& = 16 
sprite.xoff% = -7 
sprite.yOff% = -6 
image: ı* Einlesen des Sprite-Images 
RESTORE daten 
FOR loop%=0 TO 31 
READ info& 
hi% = INTCinfo&/256) 
Lo% = info&-(256*hi%) 
image$ = image$+CHR$Chi%)+CHR$C1LO%X) 


NEXT loop% 


setpoint: '* Neues Image einbauen 
CALL 
SetPointer(WINDOW(7),SADD( image$) ,sprite.hoehe%,sprite.breite%, 
sprite.xoff%,sprite.yOff%) 


mainDemo: '* Hier eine Demonstration des neuen Pointers 
CLS 


PRINT "Beliebige Taste = Abbruch" 
PRINT "Linke Maustaste = Zeichnen"! 
ı%* mit Muster zeichnen 
DIM area.pat%(3) 
area.pat%(0) = &H1111 
area.patX(1) = &H2222 
area.pat%(2) = &H44AA 
area.pat%(3) = &H8888 
PATTERN ‚area.pat% 
COLOR 2,3 
WHILE INKEY$="" 
state%=MOUSE (0) 
IF state%<O THEN 
mouse0OlLdX% = mouseX% 
mouse0OldY% = mouseY% 
mouseX% = MOUSE(1) 
mouseY% = MOUSE(2) 
IF Iplot% = O THEN 
Lplot% = 1 


PSET (mouseX% ‚mouseY%) 
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ELSE 
LINE (mouseOldX% ,mouseOldY%)- (mouseX% ,mouseY%),1,bf 
END IF 
ELSE 
L\plot% = 0 
END IF 
WEND 


COLOR 1,0 


ende: ı* Demo ende, alten Pointer 
CALL ClearPointer(WINDOW(7)) 
LIBRARY CLOSE 
END 


daten: ı* Die Sprite-Datas 
DATA 0,0 
DATA 256,256 
DATA 256,256 
DATA 256,256 
DATA 896,0 
DATA 3168,0 
DATA 12312,0 
DATA 256,49414 
DATA 256,49414 
DATA 12312,0 
DATA 3168,0 
DATA 896,0 
DATA 256,256 
DATA 256,256 
DATA 256,256 
DATA 0,0 


Programm-Beschreibung: 


Unser neuer Maus-Pointer soll 16 Pixel breit und 14 Pixel hoch 
werden. Der "Hot Spot", der Punkt, an dem unser Maus-Pointer 
empfindlich ist, liegt in unserem Beispiel 7 Pixel rechts und 
sechs Pixel unterhalb der linken oberen Sprite-Ecke. 


Im Programmteil "image" wird das neue Äußere unseres Pointers 
definiert. Die Daten dazu liegen im Teil "Daten". Jede Zeile ei- 
nes Sprites darf bis zu 16 Punkte breit sein. Der Datenblock be- 
steht nun aus zwei 16-Bit-Werten pro Sprite-Zeile. Da unser 
Beispiel-Sprite 14 Zeilen hoch sein soll, existieren auch 14x2=28 
Sprite Daten (zzgl. 2x0 am Anfang und am Ende, um DMA aus- 
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zuschalten). Für jeden möglichen Punkt des Sprites gibt es also 
zwei Bits. Ist keines der beiden Bits gesetzt, dann erscheint die- 
ser Punkt des Sprites transparent. Die anderen drei Kombinatio- 
nen entsprechen den möglichen drei Sprite-Farben. 


Die Sprite-Daten werden in der String-Variable image$ gespei- 
chert. Dazu müssen die 16-Bit-Werte zunächst in zwei 8-Bit- 
Werte (lo- und hi-Byte) verwandelt werden. 


Schließlich erfolgt der Aufruf "SetPointer", der augenblicklich 
den neuen Pointer aktiviert. 


Am Ende der Zeichendemo steht der Aufruf der Routine 
"ClearPointer". Er aktiviert den normalen Pointer wieder. 


3.3.2  Fenster-Verschieben leicht gemacht 


Sicherlich kennen Sie die Möglichkeit, mit Hilfe der Maus 
Fenster umherzuverschieben. Dasselbe läßt sich mittels Intuition 
auch durch eine Programmanweisung bewerkstelligen. Dazu wird 
die Intuition-Routine "MoveWindow" benötigt. Sie verlangt drei 
Argumente: 


MoveWindow( fenster ,deltaX,deltaY) 


fenster: Adresse der Fenster-Datenstruktur 

deltaX: Anzahl der Pixel, um die das Fenster nach rechts geschoben 
werden soll (negativ = links) 

deltaY: Entsprechend, jedoch vertikale Verschiebung 


Diese Routine überprüft Ihre Angaben nicht auf Richtigkeit. 
Liegen also Ihre Delta-Werte einige Screen-Breiten außerhalb 
des Monitors, dann versucht Intuition, das Fenster aus dem Mo- 
nitor zu schieben. Das klappt natürlich nicht, die Kiste hängt. 
Wir haben uns deshalb erlaubt, Ihre Eingaben auf Richtigkeit zu 
überprüfen. Dazu dient eine kleine Error-Check-Routine, die 
auf den Informationen basiert, die in der Fenster-Datenstruktur 
zu finden sind (siehe Kapitel 2.2) . 
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Hier das Programm: Es ist ein SUB namens Move. 





'# 

'# Programm: Fenster verschieben 

'# Datum: 10.4.87 

ı# Autor: tob 

ı# Version: 1.0 

'# 

EEE EEEIETIEEEIETEHIHTREHEHEFHHIHIHIHIHTHTHHTFTHTHEER: 


‘Intuition kann programmgesteuert beliebige 
ıFenster verschieben. Dieses Programm demon- 
'striert den WindowMove()-Befehl (incl. Error- 
'Check) 

PRINT "Suche das .bmap-File..." 


!INTUITION-Bibliothek 
ıMoveWindon( ) 


LIBRARY "intuition. Library" 

demo: CLS 
WINDOW 2,"Test-Fenster",(10,10)-(400,100),16 
WINDOW OUTPUT 2 


PRINT "Original-Position! Bitte Taste druecken!'" 
WHILE INKEY$="":WEND 


Move 10,20 '10 rechts, 20 unten 
PRINT "Neue Position! Taste druecken! " 
WHILE INKEY$="":WEND 


Move -10,-20 '10 links, 20 hoch 
PRINT "Zurueck!" 


FOR t=1 TO 3000:NEXT t 


Move 10000,10000 'FEHLER 
!(nix passiert, dank error-check!) 


WINDOW CLOSE 2 
LIBRARY CLOSE 


SUB Move(x%,y%) STATIC 


fen& = WINDOW(7) 
screen.breite% = 640 
screen.hoehe% = 256 
fenster.x% = PEEKW( fen&+4) 
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fenster.y% = PEEKW( fen&+6) 

fenster.breite% = PEEKW( fen&+8) 

fenster.hoehe% = PEEKW( fen&+10) 

min.x% = fenster.x%*(-1) 

min.y% = fenster.y%*(-1) 

max.x% = screen.breite%-fenster.breite%-fenster..x% 
max.y% = screen.hoehe%- fenster.hoehe%- fenster .y% 


IF x%<min.x% OR x%>max.x% THEN x%=0 


IF y%<min.y% OR y%>max.y% THEN y%=0 
CALL MoveWindow( fen&,x%,y%) 
END SUB 


3.3.3 Setzen der Fenster-Limits 


Für alle Fenster, deren Größe variabel ist, gibt es eine Mindest- 
und eine Höchstgröße. Die Intuition-Routine "WindowLimits" 
setzt diese Grenzen Ihren Angaben entsprechend. Dabei werden 
die Datenfelder der Fenster-Datenstruktur (siehe Kapitel 2.2) ab 
Offset 16 direkt manipuliert. Diese Routine kontrolliert außer- 
dem, ob die mitgelieferten Argumente stimmen. Entsprechend 
wird ein Wert zurückgeliefert, der TRUE (=1) ist, falls alles ge- 
klappt hat. Andernfalls ıst er FALSE (=0). 


"WindowLimits" verlangt fünf Argumente und liefert einen Wert 
zurück: 


resultat%=WindowL imits%( fenster ‚minX,minY,maxX ,maxY) 


resultat%: 1 = alles OK 

0 = Mindestgrößen größer Maxigrößen etc. 
minX,minY: Mindestausdehnungen des Fensters 
maxX,maxY: Höchstausdehnungen des Fensters 


Hier ein Beispiel: 


DECLARE FUNCTION WindowLimits% LIBRARY 
LIBRARY "intuition. Library" 


minX%=5 

minY%=5 

maxX%=640 

maxY%=200 

res%=WindouL imits%C(WINDOW(7) ‚minX%,minY% maxX% ‚maxY%) 
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IF res%=0 THEN 
PRINT "Etwas stimmte nicht..." 
END IF 


LIBRARY CLOSE 
END 


3.3.4 _ Vergrößern und Verkleinern von Fenstern 

Die Intuition-Funktion "SizeWindow" ist in der Lage, ein Fenster 
nach Belieben zu verkleinern oder vergrößern. Sie verlangt drei 
Argumente: 


SizeWindow( fenster ‚deltaX,deltaY) 


fenster: Adresse der Fenster-Datenstruktur 

deltaX: Anzahl der Pixel, um die das Fenster in horizontaler Rich- 
tung vergrößert werden soll (negativ = verkleinern) 

deltaY: Entsprechend, jedoch vertikal 


Auch hier wird kein Fehler-Check gemacht. Sollten Ihre Delta- 
Werte ein Fenster derart deformieren, daß es kleiner als nichts 
oder größer als der bestehende Screen wird, kommt es zu einem 
System-Crash. Deshalb haben wir auch hier eine Sicherung ein- 
gebaut, die falsche Werte erkennt und unschädlich macht. Das 
SUB nennt sıch "Size": 


HHHHHHHHHRETHHHHHHHHHHHHHHHHHHHHHHHIHHTER 
A 

'# Programm: Fenster-Limits 

'# Datum: 10.4.87 

'# Autor: tob 

ı# Version: 1.0 

'# 
HERREN 


'Demonstriert das Setzen der Fenster Min- 
ıdest- und Hoechstgrenzen fuer das Ver- 
ıschieben. 

PRINT "Suche das .bmap-File..." 


‘INTUITION-Bibliothek 
DECLARE FUNCTION WindowLimits% LIBRARY 
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LIBRARY "intuition.Library" 


demo: CLS 
WINDOW 2,"Test-Fenster",(10,10)-(400,100), 16 
WINDOW OUTPUT 2 


ı* Fenster-Grenzen setzen 
r%=WindowL imits%CWINDOW(7),0,0,600,200) 
IF r%=0 THEN ERROR 255 


PRINT "Original-Groesse! Bitte Taste druecken!"" 
WHILE INKEY$="";WEND 


Size 60,40 '60 rechts, 40 unten 
PRINT "'Neue Groesse! Taste druecken!"!" 
WHILE INKEY$="":WEND 


Size -60,-40 '60 links, 40 hoch 
PRINT "Zurueck! 


I!* warten 
FOR t=1 TO 3000:NEXT t 


ı* fehlerhafte Eingabe wird abgefangen 
Size 10000, 10000 'FEHLER 
(nix passiert, dank error-check!) 


WINDOW CLOSE 2 
LIBRARY CLOSE 


SUB Size(x%,y%) STATIC 
fen&=WINDOW(7) 


fenster.breite% = PEEKW( fen&+8) 

fenster.hoehe% = PEEKW( fen&+10) 

fenster.minX% = PEEKW(fen&+16) 

fenster.minY% = PEEKW(fen&+18) 

fenster.maxX% = PEEKW( fen&+20) 

fenster.maxY% = PEEKW(fen&+22) 

min.x% = fenster.minX%-fenster.breite% 
min.y% = fenster.minY%- fenster .hoehe% 

max.x% = fenster .maxX%- fenster.breite% 
max.y% = fenster.maxY%-fenster.hoehe% 


IF x%<min.x% OR x%>max.x% THEN x%=0 
IF y%<min.y% OR y%>max.y% THEN y%=0 
CALL SizeWindow( fen&,x%,y%) 

END SUB 
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3.3.5 _Programmgesteuertes Tiefen-Arrangement 


Fenster lassen sich - relativ zu anderen Fenstern - in den Hin- 
tergrund schieben oder in den Vordergrund holen. Das geschieht 
normalerweise mit der Maus. Aber es gibt auch zwei Intuition- 
Funktionen, die genau dasselbe tun, sich aber in Programmen 
verwenden lassen: WindowToFront und WindowToBack. 


Hier eine kleine Demonstration: 


LIBRARY "intuition. Library" 


FOR loop%=1 to 10 
CALL WindowToBack(WINDOW(7)) 
PRINT "Hinten!" 
FOR t=1 TO 2000:NEXT t 
CALL WindowTofront(WINDOW(7)) 
PRINT "Vorn!" 
FOR t=1 TO 2000:NEXT t 

NEXT loop% 


3.4 Der Intuition-Screen 


Neben den Fenstern werden auch die Screens von Intuition ver- 
waltet. Ähnlich wie die Intuition-Fenster besitzen auch die In- 
tuition-Screens eine eigene Datenstruktur. Den Zeiger darauf 
finden Sie in der Fenster-Datenstruktur ab Offset 46. Für Ihr 
aktuelles Ausgabefenster lautet die Basisadresse dieser Daten- 
struktur also bei AmigaBASIC: 


screen&=PEEKL(WINDOW(7)+46) 


GFA-BASIC liefert die Adresse in der Variablen SCREEN(x), 
wobei x die Kennzahl des gewünschten Screens ist: 


OPENS 1 
PRINT SCREEN(1) 


Die Adressen der einzelnen Datenfelder erhalten Sie wieder 
durch Addieren der Offsets zu obiger Basisadresse. Es folgt nun 
die Belegung dieser Struktur: 
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Datenstruktur "Screer"/Intuition/342 Bytes 


Offset 


+ 000 
+ 004 
+ 008 
+ 010 
+ 012 
+ 014 
+ 016 
+ 018 
+ 020 


+ 022 
+ 026 
+ 030 
+ 031 
+ 032 
+ 033 
+ 034 
+ 035 
+ 036 
+ 037 
+ 038 
+ 039 
+ 040 
+ 044 
+ 084 
+ 184 
+ 224 
+ 326 
+ 330 
+ 331 
+ 332 
+ 334 
+ 338 


Typ 


Long 
Long 
Word 
Word 
Word 
Word 
Word 
Word 
Word 
Bit 0: 
Bit 0-3: 
Bit 4: 
Bit 5: 
Bit 6: 
Long 
Long 
Byte 
Byte 
Byte 
Byte 
Byte 
Byte 
Byte 
Byte 
Byte 
Byte 
Long 


Long 
Byte 
Byte 
Word 
Long 
Long 


Bezeichnung 


--> nächster Screen 

--> erstes Fenster in diesem Screen 
X-Koordinate der linken oberen Ecke 
Y-Koordinate der linken oberen Ecke 
Breite des Screens 

Höhe des Screens 

Y-Koordinate des Maus-Pointers 
X-Koordinate des Maus-Pointers 
Flags 

1=Workbench-Screen 

1=Custom Screen 

1=Show Title 

1=Screen beept gerade 

1=Custom Bit Map 

--> Screen-Namenstext 

--> Standard-Titeltext 
Kopfleisten-Höhe 

vertikale Grenze der Kopfleiste 
horizontale Grenze der Kopfleiste 
vertikale Grenze des Menüs 
horizontale Grenze des Menüs 
oberer Fensterrahmen 

linker Fensterrahmen 

rechter Fensterrahmen 

unterer Fensterrahmen 

unbenutet 

--> Standard Font TextAttr 
Viewport des Screens 

Rastport des Screens 

Bitmap des Screens 

Layerinfo des Screens 

--> erstes Screen-Gadget 

Detail Pen 

Block Pen 

Backup-Register für Beep(), speichert ColO 
--> externe Daten 

--> User Daten 


Sicherlich werden Sie viele Ähnlichkeiten zwischen dieser und 
der Fenster-Datenstruktur aus Kapitel 2.1 gefunden haben. Ei- 
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nige Felder sind jedoch ganz neu. Wieder werden wir die Felder 
der Reihe nach durchgehen und ihre Bedeutung klären. 


3.4.1 Die Screen-Daten unter der Lupe 


Offset 0: Nächster Screen 


Auch die Screens werden von Intuition in der Form einer Da- 
tenkette organisiert. Wenn es neben Ihrem Screen noch weitere 
geben sollte, dann finden Sie hier die Adresse des Screen-Daten- 
blocks für den nächsten Screen. 


Offset 4: Erstes Fenster 


Sicherlich erinnern Sie sich noch an die Datenkette, in der die 
Fenster gehalten wurden: Zwei Felder, das Eltern- und das 
Kind-Feld, gaben jeweils die Adresse des vorangegangenen und 
des nachfolgenden Fensters an. So konnte man von jedem 
Fenster aus die Datenkette auf oder ab wandern und gelangte zu 
jedem beliebigen Fenster. Diese Methode hatte einen kleinen 
Schönheitsfehler, denn um die gesamte Datenkette entlanglaufen 
zu können, mußte man zunächst ihren Anfang suchen, denn das 
"Einstiegsfenster" lag meist nicht zufällig dort. 


Interessieren Sie sich lediglich für Fenster innerhalb eines 
Screens, dann gibt es eine einfachere Methode: In diesem Feld 
ist die Adresse der ersten Fenster-Datenstruktur abgespeichert. 
Die Adresse der nachfolgenden Struktur finden Sie im jeweils 
ersten Feld einer jeden Fenster-Datenstruktur (Offset +0): 


fenster&=WINDOW(7) 
scr&=PEEKL(fenster&+46) 
sucher&=scr&+4 
WHILE flag%=0 
sucher&=PEEKL(sucher&) 
IF sucher&=0 THEN 
flag%=1 
ELSE 
zaehler%=zaehler%+1 
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PRINT zaehler%; 
PRINT ". Fenster-Datenblock: Adresse "; 
PRINT sucher® 
END IF 
WEND 
END 


Nochmals: Diese Methode ist programmtechnisch einfacher, listet 
aber nur diejenigen Fenster, die zusammen mit dem aktuellen 
Ausgabefenster in ein- und demselben Screen liegen. 


Offset 8, 10, 12 und 14: Dimensionen des Screens 


Ganz analog zur Fenster-Datenstruktur finden Sie hier die Ko- 
ordinaten der linken oberen Ecke des Screens relativ zur ober- 
sten Ecke des Displays, sowie Breite und Höhe. In der augen- 
blicklichen Version der Amigas 500-2000 lassen sich Screens 
nicht horizontal verschieben. Feld Offset +8 ist damit lediglich 
der Kompatibilität wegen vorhanden. 


Offset 16 und 18: Die Maus-Koordinaten 


Hier finden Sie die Y- und X-Koordinaten des Maus-Pointers 
relativ zur linken oberen Ecke des Screens. Während des Herun- 
ter- oder Heraufziehens des Screens kann es beim Y-Wert zu 
kleinen Schwankungen kommen. 


Offset 20: Flags 


Die Bit-Belegungen erklären sich von selbst. "Show Title" be- 
deutet, daß der Titeltext des Screens sichtbar ist. Eine Custom 
Bitmap ist eine vom Anwender beim Erzeugen eines neuen 
Screens mitgelieferte eigene Zeichenebene. 
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Offset 22 und 26: Die Namen des Screens 


Hier findet sich a) die Adresse auf den Namensstring dieses 
Screens sowie b) ein Standard-Text, der sich von Fenstern über- 
nehmen läßt, wenn dort kein anderer festgelegt wurde. 


Offset 30 - 39: Default- Parameter 


Diese Byte-Felder enthalten diverse Standardparameter, wie z.B. 
die Abmessungen der Kopfleiste etc. Alle Fenster in diesem 
Screen richten sich nach diesen Werten und übernehmen sie für 
sich selbst.Offset 40: Der Standard-Zeichengenerator 


Sobald ein Fenster innerhalb Ihres Screens geöffnet wird, besitzt 
es einen standardmäßigen Character-Generator (eine vorbe- 
stimmte Schriftart). Die Adresse auf diesen Standard-Zeichenge- 
nerator liegt in diesem Feld. 


Wir werden das Thema "Zeichengenerator" später ausführlich 
behandeln. 


Offset 44: Der Viewport 


Und wieder haben wir einen neuen Begriff: Viewport. In der 
Datenstruktur des Screens ist dieses hier ausnahmsweise kein 
Zeiger. Ab Offset 44 liegt der eigentliche Viewport des Screens. 
Bei ihm handelt es sich um eine eigenständige kleine Daten- 
struktur von 40 Bytes. Ohne an dieser Stelle weiter auf ihn ein- 
gehen zu wollen, handelt es sich bei ihm um den Knotenpunkt 
zu Amigas Grafik-Hardware, dem Grafik-Coprozessor "Copper". 
Sie müssen sich jedoch noch eine Weile gedulden, bevor wir ihn 
genauer unter die Lupe nehmen. 


Offset 84: Der Rastport 


Auch hierbei handelt es sich nicht um einen Zeiger, sondern um 
den Rastport höchstselbst. Sie hatten bereits bei der Fenster- 
Datenstruktur mit ihm das Vergnügen. Da der Screen - wie auch 
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das Fenster - eine Zeichenebene ist, findet sich auch hier ein 
solcher Rastport. Nähere Erläuterungen folgen auch hier in 
Kürze. 


Offset 184: Die Bitmap 


Erneut eine eigenständige Datenstruktur namens Bitmap, 40 
Bytes groß. Dies ist der Knotenpunkt des Screens mit den ei- 
gentlichen Speicherbereichen, in denen der Screen-Inhalt abge- 
legt wird, den sogenannten "Bitplanes". Auch dies ist ein eigen- 
ständiges Thema. Es wird an späterer Stelle aufgegriffen. 


Offset 224: Das LayerInfo 


Die letzte interne Datenstruktur des Screens. Hierbei handelt es 
sich um das Kernstück des Windowing-Systems, den Layers. Wir 
werden auch das noch eingehend behandeln. 


Offset 326: Zeiger auf Screen-Gadgets 


Auch Ihr Screen kennt Gadgets, mit deren Hilfe er sich in den 
Vordergrund holen oder in den Hintergrund schieben läßt. Die- 
ses Feld ist allerdings für den internen Systemgebrauch be- 
stimmt. 


Offset 330 und 331: Die Screen-Farben 


Wie auch bei den entsprechenden Feldern in der Fenster-Daten- 
struktur machen sich Manipulationen dieser Farben erst bemerk- 
bar, wenn der Screen neu gezeichnet wird, also z.B. die Screen- 
Menüs benutzt werden. 


Offset 332: Backup- Register 


Hier hinterlegt Intuition die Farbe des Registers 0, wenn es 
diesen Screen beepen läßt. Das geschieht z.B. durch: 
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PRINT CHR$(7) 


Offset 334 und 338: Externe und User Daten 


Wieder die Möglichkeit, weitere Datenblöcke mit dieser Stan- 
dard-Struktur zu verbinden. 


3.5 Intuition und der Rest der Welt 


Sie haben bis jetzt die Datenstrukturen "Fenster" und "Screen" 
kennengelernt. Es ist an der Zeit, ein Resümee zu ziehen und 
diese Datenblöcke in Zusammenhang zu bringen. Sehen Sie sich 
dazu bitte einmal die folgende Zeichnung an. Sie symbolisiert 
eine Fenster-Datenstruktur. Die Ausgänge sind Zeiger auf an- 
dere Komponenten, die innerhalb dieser Struktur zu finden sind: 


Screen Vater - 
Fenster 


nächst. 


Fenster Fenster 


Kind - 
Rastport Fenster 





Ebenso läßt sich die "Screen"-Struktur verbildlichen: 
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nächst. Screen 


Viewport 1. Fenster 


Screen 


Rastport 





Screen 


Viewport 


Fenster 


Rastport 


Bitmap 


Rastport 
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Die obenstehende Zeichnung stellt ein System im Zusammenhang 
dar, bestehend aus einem Screen und einem Fenster. 


Noch ist das Bild unvollständig. Es fehlen gänzlich Kenntnisse 
über die Strukturen "Rastport", "Viewport" und "Bitmap". Als 
nächstes nehmen wir uns daher den Rastport vor. 


3.6 Der Rastport 


Mit diesem Datenblock nähern wir uns den Grundelementen der 
Amiga-Grafik, den sogenannten "Graphic Primitives". Wir ver- 
lassen damit die Welt der "Intuition" und begeben uns eine Stufe 
tiefer in der Amiga System-Architektur, auf die Stufe der Gra- 
fik-Bibliothek. 


Der Rastport verwaltet eine Zeichenebene. Er enthält die Daten 
darüber, wie eine Zeichnung vonstatten zu gehen hat. Die 
Anfangsadresse dieses Datenblockes für das aktuelle Fenster liegt 
für AmigaBASIC immer in der Variablen WINDOW(8). Ebenso 
gut läßt sie sich aber auch direkt aus der Fenster-Datenstruktur 
auslesen: 


PRINT WINDOW(8) 
PRINT PEEKL(WINDOW(7)+50) 


Letzteres ist auch bei GFA nötig: 


OPENW 0 
PRINT LPEEK(WINDOW(O)+50) 


Der Rastport-Block ist wie folgt aufgebaut: 


Datenstruktur "Rastport"/graphics/100 Bytes 


Offset Typ Bezeichnung 

+ 000 Long --> die Layer-Struktur 
+ 004 Long --> die Bitmap-Struktur 
+ 008 Long --> das AreaFill-Muster 


+ 012 Long --> TmpRas-Struktur 
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Offset 


+ 016 
+ 020 
+ 024 
+ 025 
+ 026 
+ 027 
+ 028 


+ 029 
+ 030 
+ 031 
+ 032 


+ 034 
+ 036 
+ 038 
+ 040 
+ 048 
+ 050 
+ 052 
+ 056 
+ 057 
+ 058 
+ 060 
+ 062 
+ 064 
+ 066 
+ 070 
+ 084 
+ 092 


Typ 


Long 
Long 
Byte 


‚ Byte 


Byte 
Byte 
Byte 


Byte 
Byte 
Byte 
Word 


Word 
Word 
Word 
Word 
Word 
Long 
Byte 

Byte 

Word 
Word 
Word 
Word 
Long 
Word 
Long 
Byte 
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Bezeichnung 


--> Arealnfo-Struktur 

--> GelsInfo-Struktur 

Mask: Schreibmaske für dieses Raster 
Vordergrundfarbe 

Hintergrundfarbe 
AreaFill-Outline-Farbe 
Zeichen-Modi 


JAM1 = 0 
JAM2 =] 
COMPLEMENT = 2 
INVERSEVID =4 


AreaPtSz: 2n Words für AreaFill-Muster 
unbenutzt 

line draw pattern preshift 

verschiedene Kontroll-Bits 


FIRST DOT = 1: zeichne ersten Punkt? 
ONE DOT = 2: one dot mode für Linien 
DBUFFER = 4: double buffered gesetzt 


LinePtrn: 16 Bits für Linienmuster 
X-Koordinate des Grafik-Cursors 
Y-Koordinate des Grafik-Cursors 
8x1 Byte minterms 

Cursorbreite 

Cursorhöhe 

--> Zeichengenerator 
Zeichensatz-Modus (fett, kursiv, etc.) 
textspezifische Flags 

Höhe des Zeichensatzes 
durchschnitt]. Zeichenbreite 
Texthöhe ohne Unterlängen 
Zeichenabstand 

--> User Daten 

reserviert (7x) 

reserviert (2x) 

reserviert (8x) 


3.6.1 Ausführlicher Kommentar zur Datenstruktur Rastport 


Ebenso wie bei den beiden Strukturen "Fenster" und "Screen" 
werden wir Ihnen auch hier Stück für Stück die Bedeutung die- 
ses Datenblocks näherbringen: 
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Offset 0: Das Layer 


Layer bedeutet zu deutsch "Schicht". Der Amiga benutzt Layers, 
um eine einzige Zeichenebene unter vielen unabhängigen Be- 
nutzern aufzuteilen. Im Grunde sind die Layers nämlich nichts 
anderes als die Seele eines jeden Intuition-Fensters. Obwohl man 
sich ihnen nur sehr widerwillig nähert, denn sie erscheinen auf 
den ersten Blick sehr kompliziert und vergleichsweise nutzlos 
(schließlich gibt es die Fenster bereits), werden wir diesem 
Thema an späterer Stelle ein ganzes Kapitel widmen. Bei näherer 
Betrachtung entpuppen sich diese Layers nämlich als wahre 
Grafik-Fundgrube. Doch lassen Sie sich überraschen! 


Offset 4: Die Bitmap 


Schon einmal haben Sie eine Bitmap kennengelernt. Sie war Be- 
standteil der Screen-Struktur. Dies ist ein Zeiger auf nichts 
anderes als diese Bitmap-Struktur. Somit können Sie indirekt die 
Adresse des Screens auch über den Rastport bestimmen: 


scr&=PEEKL(WINDOW(8)+4) - 184 


GFA: 
SCr%=LPEEK(LPEEKCWINDOW(0)+50)+4) - 184 


Die Bitmap ist, wir sprachen darüber, der Knotenpunkt zwi- 
schen Datenstruktur und den RAM-Bänken, in denen der 
Fenster- und Screen-Inhalt gespeichert ist. 


Offset 8: --> das AreaFill-Muster 


Sicherlich ist Ihnen die Möglichkeit bekannt, Flächen nicht nur 
einfarbig, sondern auch mit Mustern auszufüllen. Doch die 
Mustervorgabe muß irgendwo gespeichert sein. Dieses Feld ent- 
hält die Adresse des Speicherbereiches. 
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Sie erhalten weitere Informationen und Beispiele im Anschluß an 
diesen Kommentar. Dann nämlich werden wir mit Hilfe einiger 
dieser Register auch das letzte in Sachen Muster aus dem Amiga 
herauskitzeln: Bis zu 32-farbige Multicolor-Muster! 


Offset 12: Der TmpRas 


TmpRas steht vermutlich für Temporäres Raster. Es handelt sich 
bei ihm um eine Datenstruktur, die vornehmlich aus freiem 
RAM besteht. Wann immer Sie Füll-Befehle wie PAINT oder 
LINE bf verwenden, wird diese Struktur notwendig. Sie muß in 
der Lage sein, das gesamte Füllobjekt aufzunehmen und zwi- 
schenzuspeichern. 


Offset 16: Arealnfo 


Dies ist eine Datenstruktur, die zur Polygonzeichnung verwendet 
wird. Für BASIC ist sie uninteressant. Wir werden sie aber spä- 
ter am Rande erläutern. 


Offset 20: GelsInfo 


"Gels" steht für Graphics Elements. Dazu gehören Sprites und 
Bobs (Blitter Objects), aber auch das vollautomatische Amiga 
Animationssystem. Bevor dieses System aktiviert werden kann, 
muß eine GelsInfo-Struktur geschaffen werden, die einige 
wichtige Parameter enthält. 


Offset 24: Schreibmaske 


Mit dieser Variablen lassen sich einzelne Bitplanes der Zei- 
chenebene ausblenden. Normalerweise finden Sie hier den Wert 
255, alle Bits sind gesetzt. Es werden also alle vorhandenen Bit- 
planes verwendet. Der POKE 


POKE WINDOW(8)+24,, 0 
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sorgt dafür, daß keine Bitplane mehr aktiv ist; auf den Bild- 
schirm wird nichts mehr gezeichnet. Entsprechend können Sie 
ausgewählte Bitplanes aktivieren etc. 


Offset 25, 26 und 27: Zeichenfarben 


Mit diesen Registern werden die Zeichenfarben bestimmt: Das 
erste Register enthält die Nummer des Farbregisters für die 
Zeichenfarbe, das zweite die des Hintergrundes, das dritte die 
des AreaOutline-Modus. 


Offset 28: Zeichen-Modus 


Amiga kennt vier grundsätzliche Zeichenmodi, mit denen Sie ar- 
beiten können. Es sind dies die Modi 


JAM 1 =0 
JAM 2 =] 
COMPLEMENT — 
INVERSEVID =4 


Der normale Zeichenmodus ıst JAM2. Dabei wird in die Zei- 
chenebene mit der Vordergrundfarbe gezeichnet. Der Rest wird 
mit Hintergrundfarbe ausgemalt. Das folgende Beispiel macht 
das deutlich: 


(Alle Programmbeispiele im Direktmodus eingeben!) 


LINE (0,0)-(100,100),2,bf 
LOCATE 1,1:PRINT "HALLO!" 


Die weiße Schrift erscheint auf blauem Hintergrund. In den ur- 
sprünglich schwarzen Hintergrund wurde ein Loch geschnitten. 


Anders ist es bei JAMI. Hier wird lediglich die Vordergrund- 
farbe benutzt, der Hintergrund bleibt unberührt: 


LINE (0,0)-(100,100),2,bf 
POKE WINDOW(8)+28, 0 
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LOCATE 1,1:PRINT "HALLO!" 
POKE WINDOW(8)+28, 1 


COMPLEMENT komplemetiert die Grafik mit dem Hintergrund: 
Wo früher ein Punkt gesetzt war, wird er nun gelöscht und um- 
gekehrt: 


LINE (0,0)-(100,100),2,bf 
POKE WINDOW(8)+28,2 

LINE (50,50)-(150,150),3,bf 
POKE WINDOW(8)+28, 1 


INVERSEVID invertiert die Grafik: Hinter- und Vordergrund- 
farbe werden vertauscht. Das sieht so aus: 


POKE WINDOW(8)+28,4 
PRINT "INVERSE!" 
POKE WINDOW(8)+28, 1 


Diese "Pokereien" funktionieren im Direktmodus wunderbar. Es 
hapert jedoch, wenn Sie versuchen, die POKEs in Programme 
einzubinden. Dann nämlich passiert gar nichts. 


Abhilfe schafft die Routine "SetDrMd" der Grafik-Bibliothek, 
die den gewünschten Zeichenmodus sicher und zuverlässig ein- 
schaltet: 


LIBRARY "graphics. Library" 
CALL SetDrMd(WINDOW(8) ‚modus%) 


modus%=0 - 255 


Problemlos lassen sich verschiedene Modi miteinander kombi- 
nieren (lediglich JAMI und JAM2 beißen sich...). 


Einfacher ist es bei GFA: Hier gibt es den Befehl GRAPH- 
MODE, der SetDrMd() sehr ähnlich ist: GRAPHMODE modus 


Offset 29: AreaPtSz 


Wann immer Sie mit Mustern arbeiten (PATTERN-Befehl), ist 
es nötig anzugeben, wie hoch denn das Muster sein soll. Zulässig 
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sind lediglich Musterhöhen in Zweierpotenz-Schritten: 1.2.4, 
8,... In diesem Feld ist die Potenz gespeichert. 


Durch eine besondere Programmierung läßt sich über dieses Re- 
gister außerdem der Multicolor-Muster-Modus aktivieren, mit 
dem man nicht nur ein- sondern bis zu 32-farbige Muster kre- 
ieren kann. Mehr dazu im nächsten Kapitel! 


Offset 30, 31 und 32: für Systembenutzung 


Offset 34: Linienmuster 


Nicht nur Flächen lassen sich gemustert ausfüllen, auch Linien 
können dergestalt gezeichnet werden. Die Technik ist einfach: 16 
aufeinanderfolgende Punkte einer gedachten Linie können von 
Ihnen gesetzt oder gelöscht werden. Der Amiga zeichnet dann 
mit diesem "Beispielstück" alle anderen Linien. Nehmen wir an, 
Sie möchten das folgende Linienmuster erstellen: 


KR KR KR 


- eine gestrichpunktete Linie also. Sie ermitteln zunächst die 
Bitwerte dieser Linie: 


bit&=215+214+213+212+211+29+27+26+25+24+23+21 


Nun wird dieser Wert in dieses Register geschrieben: 


POKEW WINDOW(8)+34 ‚hit 
Ein Test: 
LINE (10,10)-(600,10) 


Sie sehen, es funktioniert. GFA-BASIC bietet hier den Befehl 
DEFLINE, der die Pokerei ersetzt: 


OPENW O 
DEFLINE &X1100110011110000 
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COLOR 1,2 
LINE 0,0,640,256 


zeichnet eine gemusterte Linie diagonal über den Schirm. 


Offset 36 und 38: Koordinaten des Grafik-Cursors 


Diese beiden Felder sind von außergewöhnlicher Wichtigkeit. 
Text auf dem Amiga ist bekanntlich nichts anderes als textför- 
mige Grafik. Demnach läßt sich Text an beliebiger Position auf 
dem Bildschirm verteilen. Das folgende Beispiel beweist es: 


WHILE INKEYS="M 
x%=RND(1)*600 
y%=RND(1)*160 
POKEW WINDOW(8)+36,x% 
POKEW WINDOW(8)+38, y% 
PRINT "Commodore AMIGA! 

WEND 


GFA hat diese Möglichkeit bereits in seinen Text-Befehl einge- 
baut: 


WHILE INKEY$=1" 
Text RAND(640),RAND(256) ,"Commodore AMIGA!'" 
WEND 


produziert denselben Effekt. 


Offset 40-531: minterms, interner Gebrauch 


Offset 52: Der Zeichengenerator 


Wie bereits in der Screen-Struktur ist auch dies ein Zeiger auf 
den gerade aktiven Zeichengenerator. Der Zeichengenerator be- 
stimmt das Aussehen der Textzeichen. Wir kommen später auf 
ihn zurück. 
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Offset 56: Aktueller Text-Stil 


Amiga kann Text eines Zeichensatzes in verschiedenen Arten 
auf den Bildschirm bringen: 


normal =0 

unterstrichen = Bit 0 gesetzt 
fett = Bit 1 gesetzt 
kursiv = Bit 2 gesetzt 


Die letzten drei Modi lassen sich selbstverständlich auch unter- 
einander mischen. 


Offset 57: Text-Flags, interner Gebrauch 


Offset 58: Texthöhe 


In diesem Feld ist die Höhe der augenblicklich aktiven Textzei- 
chen gespeichert. Dadurch wird nach einem "Wagenrücklauf" 
errechnet, wo die nächste Zeile Text beginnt. 


Es hindert Sie nichts daran, einen eigenen Zeilenabstand festzu- 
legen. Er kann enger sein als normal: 


POKEW WINDOW(8)+58,5 


oder aber weiter: 


POKEW WINDOW(8)+58, 12 


Offset 60: Zeichenbreite 


Hier finden Sie die durchschnittliche Breite eines jeden Text- 
zeichens. Da der Amiga auch Proportionalschrift unterstützt 
(Zeichen sind verschieden breit), kann hier nur ein Durch- 
schnittswert geliefert werden. 
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Offset 62: Texthöhe ohne Unterlängen 


Offset 64: Zeichenabstand 


Mit Hilfe dieser Routine läßt sich der Abstand zwischen den 
einzelnen Buchstaben eines Textes variieren. Der Normwert in 
diesem Feld ist 0. Größere Werte bewirken eine gesperrte 
Schrift, wie das folgende Beispielprogramm deutlich macht: 


text$="Hallo Welt!" 
text%=LEN(text$) 


FOR loop%=1 TO 40 
POKEW WINDOW(8)+36 ,280-(loop%*text%*.5) 
ı(zentrieren) 
POKEW WINDOW(8)+38,90 
POKEW WINDOW(8)+64 , Loop% 
"PRINT text$ - 
NEXT Loop% 


FOR loop%=39 TO O STEP -1 
POKEW WINDOW(8)+36 ,280- (Loop%*text%*.5) 
POKEW WINDOW(8)+38,90 
POKEW WINDOW(8)+64, Loop% 
PRINT text$ 
NEXT loop% 


END 


Offset 66: User Daten 


Hier wieder ein Zeiger auf mögliche Benutzerdatenblöcke 


Offset 70 und folgende: reservierte Datenfelder für Aufwärts- 
kompatibilität 


3.7 Einstieg in die Grafik-Primitives 


Mit dem Rastport haben wir nun eine Kontaktadresse zu der 
untersten softwaremäßigen Grafikebene, den Graphic Primitives. 
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Als erstes wollen wir das gerade gewonnene Wissen über die 
Möglichkeiten des Rastports nutzbringend anbringen. Hier einige 
Projekte: 


3.7.1  Multicolor-Muster 


Am Anfang dieses Buches hatten wir Ihnen den PATTERN-Be- 
fehl vorgestellt. Mit ihm lassen sich beliebige Flächen mit einem 
frei definierbaren Muster ausfüllen. Statt einfacher Flächen, wie 
sie dieses Programm beschert, 


CIRCLE (310,100), 100 

PAINT (310,100),2,1 

konnten also auch gemusterte Flächen erzeugt werden: 
DIM area.pat%(3) 

area.patX(O)=&HFFFF 

area.pat%C1)=&HCCCC 

area.pat%(2)=&HCCCC 

area.pat%(3)=&HFFFF 


CIRCLE (310,100), 100 
PATTERN ‚area.pat% 
PAINT (310,100),3,1 


Es funktioniert, der Kreis füllt sich in apartem Orange mit ei- 
nem dezenten Lochmuster. 


Einen Nachteil hatten die Muster bisher: Sie waren stets einfar- 
big. 


Das soll nun anders werden. Wir haben ein ganzes Musterpaket 
für Sie zusammengestellt, mit dem Sie erstens Ihre Muster ganz 
einfach und bequem entwerfen und zweitens sogar Farbe ins 
Spiel bringen können. 


Aus dem vorangegangenen Kapitel wissen Sie, daß das Muster in 
einem Speicherbereich abgelegt sein muß, dessen Anfangsadresse 
im Rastport ab Offset 8 gespeichert wird. Die Höhe des Musters 
wird als Potenz in das Rastport-Feld ab Offset 29 geschrieben. 
Das ist das gesamte Geheimnis der Patterns. Es steht uns also 
nichts mehr im Wege, ein eigenes kleines PATTERN-SUB zu 
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schreiben, mit dem sich auch der Multi-Color-Modus aktivieren 
läßt. Dieser wird eingeschaltet, sobald die Potenz ab Offset 29 
nicht positiv, sondern negativ angegeben wird (also 256-Potenz). 


Das folgende Programm verwaltet Muster ohne PATTERN-Be- 
fehl. Es besteht aus diesen sechs Unterprogrammen: 


1. InitPattern wieviele% 


Dieses Unterprogramm initialisiert das neue PATTERN- 
System. Sie geben als Parameter ein, wieviel Zeilen Ihr 
Beispielmuster hoch sein soll. 


Die Routine berechnet anhand des Parameters den benö- 
tigten Speicherplatz und ruft GetMemory auf. Die An- 
fangsadresse des neuen Puffers wird in muster& zurückge- 
liefert. 


2. SetPat nummer%,pat3 


Mit diesem neuen Befehl können Sie die einzelnen Zeilen 
Ihres Beispielmusters in einfacher binärer Darstellung an- 
geben: Ein A entspricht einem ungesetzten, ein B einem 
gesetzten Punkt. Die nummer% gibt die Nummer der Zeile 
Ihres Beispielmusters an, für die die nachfolgende Defini- 
tion gelten soll. pat$ muß immer 16 Zeichen enthalten. Für 
eine ununterbrochene Linie sieht pat$ zum Beispiel so aus: 


3. MonoPattern 


Diese Routine wird ohne Argument aufgerufen und akti- 
viert das Mustersystem. Intern werden die beiden Rast- 
port-Adressen mit den korrekten Werten initialisiert. 


4. EndPattern 


Auch diese Routine verlangt kein Argument. Durch sie 
wird dem Amiga mitgeteilt, daß Ihr Beispielmuster nun 
nicht mehr benutzt werden soll. Außerdem wird der Spei- 
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cherplatz wieder freigegeben, der durch das Beispielmuster 
belegt worden war. Sie sollten EndPattern am Ende Ihres 
Programms aufrufen, um dem System wirklich allen Spei- 
cherplatz zurückzugeben. 


3; GetMemory size& 


Dies ist eine Allround-Speicher-Besorg-Routine. Wann 
immer Sie Speicherplatz benötigen - GetMemory besorgt 
es. Sie weisen einer &-Variablen lediglich die Größe des 
gewünschten Speicherplatzes in Bytes zu und rufen mit ihr 
als Argument diese Routine auf. Sie bekommen in dersel- 
ben Variablen die Anfangsadresse des Speicherstückes zu- 
rückgeliefert. 


Ein 1245 Bytes großes Speicherstück bekommt man bei- 
spielsweise so: 


DECLARE FUNCTION AllocMem& LIBRARY 
LIBRARY "exec.library" 

myMem&=1245 

GetMemory myMem& 

PRINT "Anfangsadresse: ";myMem& 


Achtung: Erhalten Sıe als Adresse 0 zurück, so hat etwas 
nicht geklappt. Sie haben dann keinen Speicher erhalten 
und dürfen diesen auch nicht mit FreeMemory zurückge- 
ben. 


6. FreeMemory add& 


Wenn Sie Ihren so erlangten Speicherplatz nicht mehr 
brauchen, sollten Sie ihn via FreeMemory zurück ans 
System geben. Ein vollständiger Aufruf sieht so aus: 


DECLARE FUNCTION AllocMem& LIBRARY 
LIBRARY "exec.library" 


speicher&=100 '100 Bytes, bitte! 
GetMemory speicher& 


54) 
FreeMemory speicher& "wieder freigeben 
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LIBRARY CLOSE 


Hier nun die angekündigten Unterprogramme (ColorPat- 
tern entspricht Monopattern, aktiviert jedoch den MC- 
Modus). Die folgenden Farben stehen zur Verfügung: 


Farbe 1 A Farbregister 0 (Hintergrund) 
Farbe 2B Farbregister 1 
Farbe 3 C Farbregister 2 
Farbe 4D Farbregister 3 


(für den Workbench-Screen) 





'# 
'# Programm: Mono-Color-Pattern 
ı# Datum: 27.12.86 


ı# Autor: tob 
ı# Version: 1.0 
'# 


REIHE EREHTUHEUHEHEHEHHUNHHE 


ı Ermoeglicht mehrfarbige "Multi-Color" 
ı Muster (via Rastport Manipulation) 


PRINT "Suche die .bmap-Dateien..." 


'EXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 
'FreeMem( ) 


LIBRARY "exec.library"" 


init: CLS 
zeilen%=8 
InitPattern zeilen‘% 
' 0123456789ABCDEF 
SetPat 0,'"DCDAAAAAAABBAAAA! 
SetPat 1,"DCDAAAAAABBBBAAA! 
SetPat 2,"DCDAAAAABAABBAAA! 
SetPat 3,"DCDAAAABAAAABBAA' 
SetPat 4,"DCDAAABBBBBBBBBA" 
SetPat 5,"DCDAABAAAAAAABBA! 
SetPat 6,'"DCDBBBBAAAAABBBB" 
SetPat 7 ,"CCCCCCCcCcCcCcCcCccccc" 


zeichnen: PRINT TAB(5); "MONO"; TAB(40); "COLOR!" 
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MonoPattern 
CIRCLE (60,60),60 
PAINT (60,60), farben%, 1 


ColorPattern 
CIRCLE (310,100), 100 
PAINT (310,100), farben%, 1 


ende: EndPattern 
LIBRARY CLOSE 
END 


SUB ColorPattern STATIC 
SHARED muster&,plane2% 
planes% = LOG(plane2%)/LOG(2) 
POKEL WINDOW(8)+8 ,muster& 
POKE WINDOW(8)+29,256-planes% 
END SUB 


SUB InitPattern(wieviele%) STATIC 
SHARED muster&,plane1%, plane2%, farben‘ 


ı* Na, ist das eine Zweierpotenz...? 

IF LOG(wieviele%)/LOGC2)<>INTCLOG(wieviele%)/LOG(2)) THEN 
PRINT "2x! Eine Zweierpotenz fuer InitPattern! 1,2,4,8,16..." 
ERROR 17 

END IF 


ı* Parameter auslesen 
planes% = PEEK(PEEKL(WINDOW(8)+4)+5) 
DIM SHARED p&(wieviele%*planes%) 


plane1% = planes% 
plane2% = wieviele% 
farben“ = 2’plane1%-1 


!* Definitionsmuster-Buffer besorgen 
muster& = wieviele%*2*planes% 
GetMemory muster& 

END SUB 


SUB SetPat(nummer%,pat$) STATIC 
SHARED muster&,plane1%, plane2% 


ı* Zu viele Zeilen?! 

IF nummer%>=plane2% THEN 
PRINT "Mehr Zeilen als mit InitPattern definiert!" 
EndPattern 
ERROR 17 

END IF 
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ı* Error-Handling: String auf 16 Bytes stutzen 

IF LENCpat$)<16 THEN 
pat$=pat$+STRING$C16-LEN(pat$) ,"A') 

END IF 


'* Das Definitionspattern auslesen 

FOR lLoop1% = 0 TO 15 
check$ = UCASE$(MID$(pat$, loop1%+1,1)) 
col% = ASC(check$)-65 
IF col%>=2"plane1% OR col%<0 THEN col%=0 


FOR loop2% = col% TO O0 STEP -1 
IF col%> = 2°”loop2% THEN 
col% col%-2"loop2% 


p&(nummer%+loop2%*plane2%) = p&(nummer%+loop2%*plane2%)+ 
2°(15-L00p1%) 

END IF 
NEXT loop2% 


NEXT Loop1% 


'* Werte in Buffer schreiben 
FOR loop3% = 0 TO plane2%*plane1% 
POKEW muster&+2*Lo0p3%, p&(100p3%) 
NEXT loop3% | 
END SUB 


SUB MonoPattern STATIC 
SHARED muster&,plane2% 
planes% = LOG(plane2%)/LOG(2) 
POKEL WINDOW(8)+8, muster& 
POKE WINDOW(8)+29,planes% 
END SUB 


SUB EndPattern STATIC 
SHARED muster®& 


ı* Pattern aus und Memory freigeben 
POKEL WINDOW(8)+8, O0 

POKE WINDOW(8)+29,0 

FreeMemory muster& 


END SUB 
SUB GetMemory(size&) STATIC 
mem.opt& = 2°0+2°1+2°16 
RealSize& = size&t4 
size& = AllocMem&(RealSize&,opt&) 
IF size& = O0 THEN ERROR 255 


POKEL size&,RealSize& 
size& = size&t4 
END SUB 


SUB FreeMemory(add&) STATIC 
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adde add&-4 
RealSize& = PEEKL(add&) 
CALL FreeMem(add&,RealSize&) 


END SUB 


Reichen Ihnen die vier möglichen Farben des Workbench- 
Screens nicht aus, dann haben Sie die Möglichkeit, einen eigenen 
Screen mit mehr als 2 Bitplanes Tiefe einzurichten. Das folgende 
Programm tut genau dies. Nach der Initialisierung erscheint ein 
Ihnen sicherlich nicht unbekanntes I1-farbiges Logo als Füll- 
muster. Mit der Maus können Sie zudem mit dem Muster malen, 
wenn Sie die linke Maustaste gedrückt halten: 





'# 

ı# Programm: Multi-Color-Pattern 

ı# Datum: 27.12.86 

ı# Autor: tob 

ı# Version: 1.0 

'# 

I EEEEERRERERERHHTHTEEEHERHHHHHHRRHR 


ıDemonstriert die Verwendung eines Multi-Color-Patterns mit 
ıbis zu 16 Farben (Screen-Tiefe = 4); bis zu 32 Farben moeg- 
'lich (farbmerte: A=0 bis Z=25, Farben 26-32 = chr$(91)-chr$(97) ) 


ı!bei OUT OF HEAP SPACE andere Fenster schliessen! 
PRINT "Suche die .bmap-Dateien..." 


!EXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 
ıFreeMem( ) 


LIBRARY "exec.Library" 


init: SCREEN 1,640,200,4,2 
WINDOW 1,"Hallo!",,, 1 


LOCATE 4,15 
PRINT "** Geduld! *#u 


zeilen%=8 

InitPattern zeilen‘ 

' 0123456789ABCDEF 
SetPat 0,"AAAAAAAAAAABBABB" 
SetPat 1,"AAAAAAAAAABBABBA"" 
SetPat 2,"AAAAAAAAACCACCAA!" 
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farben: 


zeichnen: 


mausContr: 


ende: 
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SetPat 3,"AAAAAAAADDADDAAA'" 
SetPat 4,'FFAFFAAEEAEEAAAA'" 
SetPat 5, "AGGAGGHHAHHAAAAA'! 
SetPat 6,"AAKKAITAITAAAAAA' 
SetPat 7,"AAAJJJJJJAAAAAAA! 


ı* Farbauswahl fuer das Muster 


PALETTE 0,0,0,0 ıA 
PALETTE 1,.9,.3,.4 'B 
PALETTE 2,.8,.5,.4 'C 
PALETTE 3,.8,.6,0 'D 
PALETTE 4,1,.8,0 'E 
PALETTE 5,0,0,.6 'F 
PALETTE 6,0,.3,.6 'G 
PALETTE 7,.7,.9,0  *'H 
PALETTE 8,.3,.9,0 "I 
PALETTE 9,0,.5,0 ') 
PALETTE 10,0,.3,01 °’K 
ColorPattern 


LOCATE 3,10 


PRINT "Linke Maus-Taste druecken!" 

PRINT TABC10);"Linken Screen-Rand beruehren = ENDE!" 
CIRCLE (310,100), 100 

PAINT (310,100), farben%, 1 


test% = MOUSE (0) 
WHILE MOUSEC1)<>O 
x% = MOUSE(1) 
y%X_ = MOUSE(2) 
IF test%<>0 THEN 
LINE (x%,y%)-(x%+10,y%+5), farben%,bf 
END IF 
test% = MOUSE(0) 
WEND 


EndPattern 
WINDOW 1,"Demo beendet.",, „1 
SCREEN CLOSE 1 


LIBRARY CLOSE 
END 


SUB ColorPattern STATIC 
SHARED muster&,plane2% 
planes% = LOG(plane2%)/LOG(2) 
POKEL WINDOW(8)+8 ‚muster®& 
POKE WINDOW(8)+29,256-planes% 
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END SUB 


SUB InitPattern(wieviele%) STATIC 
SHARED muster&,plane1%,plane2%, farben% 


ı* Na, ist das eine Zweierpotenz...? 

IF LOG(wieviele%)/LOG(2)<>INT(CLOG(wieviele%)/LOG(2)) THEN 
PRINT "2°x! Eine Zweierpotenz fuer InitPattern! 1,2,4,8,16..." 
ERROR 17 

END IF 


ı* Parameter auslesen 
planes% = PEEK(PEEKL(WINDOW(8)+4)+5) 
DIM SHARED p&(wieviele%*planesk). 


planei% = planes% 
plane2% = wieviele% 
farben = 2’plane1%-1 


ı* Definitionsmuster-Buffer besorgen 
muster& = wieviele%*2*planes% 
GetMemory muster& 

END SUB 


SUB SetPat(nummer%,pat$) STATIC 
SHARED muster&,plane1%,plane2% 


'* Zu viele Zeilen?! 

IF nummer%>=plane2% THEN 
PRINT "Mehr Zeilen als mit InitPattern definiert!" 
EndPattern 
ERROR 17 

END IF 


'* Error-Handling: String auf 16 Bytes stutzen 

IF LENCpat$)<16 THEN 
pat$=pat$+STRING$C16-LEN(pat$),"A") 

END IF 


'* Das Definitionspattern auslesen 
FOR loop1% = 0 TO 15 
check$ = UCASE$(MID$(pat$,loop1%+1,1)) 
col% = ASC(check$)-65 
IF col%>=2"plane1% OR col%<0O THEN col%=0 
FOR loop2% = colX% TO 0 STEP -1 
IF col%> = 2’loop2% THEN 
col% 
p&(nummer%+loop2%*plane2%) 
(15-Loo0p1%) 
END IF 
NEXT Loop2% 
NEXT Loop1X% 


col%-2”loop2% 
P&(nummer%+loop2%*plane2%)+2” 
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'* Werte in Buffer schreiben 
FOR loop3% = 0 TO plane2%*plane1% 
POKEW muster&+2*1loop3%, p&(loop3%) 
NEXT loop3% 
END SUB 


SUB MonoPattern STATIC 
SHARED muster&,plane2% 
planes% = LOG(plane2%)/LOG(2) 
POKEL WINDOW(8)+8, muster®& 
POKE WINDOW(8)+29,planes% 
END SUB 


SUB EndPattern STATIC 
SHARED muster 


ı* Pattern aus und Memory freigeben 
POKEL WINDOW(8)+8, O 

POKE WINDOW(8)+29,0 

FreeMemory muster& 


END SUB 
SUB GetMemory(size&) STATIC 
mem.opt& = 2°0+2°1+2°16 
RealSize& = size&t4 
size& = AllocMem&(RealSize&,opt&) 
IF size& = O0 THEN ERROR 255 


POKEL size&,RealSize& 
size& = size&t4 
END SUB 


SUB FreeMemory(add&) STATIC 
adde = add&-4 
RealSize& = PEEKL(add&) 
CALL FreeMem(add&,RealSize&) 
END SUB 


GFA-BASIC unterstützt ebenfalls die Arbeit mit 
selbstdefinierten Mustern. Neben einer ganzen Reihe bereits 
vordefinierter Musterungen können Sie Ihre ganz eigenen Muster 
mit dem DEFFILL-Kommando definieren. Das besondere: Der 
Multicolormodus ist bereits implementiert und läßt sich durch 
einen kleinen Trick mitbenutzen. Hier ein Demoprogramm: 


ı arbeiten mit selbstdef. mustern 
OPTION BASE 1 

basis=4 

DIM albasis) 
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DIM a$Cbasis) 
ı 


OPENW O 

GRAPHMODE 1 
a(1)=&%X1111111100000000 
al2)=&X1111111100000000 
al3)=&%X111111110000 
a(4)=&%X111111110000 

8 


change 
, 


ı hier ds v  Ausrufungszeichen entfernen!!! 
DEFFILL 2,9$!+CHR$C1) 
' 


r%=LPEEK(WINDOW(0)+50) 

md=PEEK(r%+29) 

a%=LPEEK(r%+8) 

FOR loop=0 TO basis-1 
PRINT "Feld: ";aCloop+1),"Rastport: ";DPEEK(a%+2*loop) 

NEXT loop 

PRINT " Modus: "';md 

STOP 

PBOX 0,0,400,200 

WHILE INKEY$=""" 

WEND 

END 

Ü 


PROCEDURE change 
nr=DIM?(a()) 
FOR loop=1 TO nr 
a$(loop)=MKI$(a(loop)) 
NEXT loop 
gy="M 
FOR loop=1 TO nr 
g$=g$+a$( loop) 
NEXT loop 
RETURN 
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In der vorliegenden Fassung produziert das Programm einfarbige 
Muster. Wenn Sie jedoch das Ausrufungszeichen an der angege- 
benen Stelle entfernen, kommen Sıe auf einfache Weise ebenfalls 
in den Genuß vielfarbiger Muster. Sie aktivieren den MC-Mo- 
dus bei GFA nämlich, indem Sie an den Definitionsstring des 


DEFFILL-Kommandos ein beliebiges Byte anhängen. 


Ist der MC-Modus aktiviert, so müssen Sie Ihr Muster ebenen- 
weise definieren. Soll (wie in diesem Beispiel) ein zwei Zeilen 
hohes Muster entstehen, benötigen Sie somit vier Definitionszei- 
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len (denn der Workbench-Screen umfaßt zwei Bitplanes). 
Zunächst definieren also zwei Zeilen die erste Ebene, dann wei- 
tere zwei Zeilen die zweite Ebene. Entsprechend stehen die so 
möglichen Kombinationen 00, Ol, 1|0 und 1|1 für die vier mög- 
lichen Farben. 


3.7.2 Mit Cursorpositionierung Schattendruck 


Die mehrfarbigen Muster aus dem vorangegangenen Absatz wur- 
den ausschließlich durch geschickte Manipulation des Rastports 
realisiert. Es steckt aber noch viel mehr in dieser Datenstruktur, 
lediglich ein bißchen Kreativität ist nötig. Als Anregung wollen 
wir Ihnen einmal zeigen, was sich mit Hilfe der Offsetfelder 28, 
36 und 38 bewerkstelligen läßt. 


Bei diesen Feldern handelt es sich um: 


Offset Typ Bezeichnung 

+ 028 Byte Zeichen-Modus 
JAMI1 = 0 
JAM2 =1 
COMPLEMENT =2 
INVERSEVID =4 


+ 036 Word X-Koordinate des Grafik-Cursors 
+ 038 Word Y-Koordinate des Grafik-Cursors 


Wir wollen nun mit ihrer Hilfe eine schattierte Textausgabe re- 
alisieren. Diese Methode ist bei Fernsehgesellschaften seit langer 
Zeit eingeführt und funktioniert so: Text wird in schwarzer 
Farbe ausgegeben. Anschließend wird derselbe Text um einige 
Bildschirmpixel verschoben in weiß darübergedruckt. Es ergibt 
sich der Schatten-Effekt, der Text besonders lesbar macht, denn 
ob der Hintergrund dunkel oder hell ist - es spielt keine Rolle; 
der Kontrast ist sichtbar. 


Zur Verwirklichung unserer Routine werden wir drei Routinen 
der Grafik-Bibliothek einsetzen: 
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SetDrMd() 
Text() 
Move() 


Die erste Routine setzt den Zeichen-Modus und beeinflußt somit 
direkt Rastport-Offset 28 (siehe Kapitel 3.6.1). Der Text-Befehl 
wurde bereits in Kapitel 2 behandelt: Er gibt Text auf den 
Bildschirm aus. Das Move-Kommando schließlich setzt den 
Grafik-Cursor auf eine beliebige Position. Dazu beeinflußt diese 
Routine direkt die Rastport-Offsets 36 und 38. Statt des Move- 
Befehls könnten Sie auch direkt in die Speicherstellen poken. 


Unsere Routine soll "Schatten" heißen. Sie verlangt zwei Argu- 
mente: 


Schatten text$,mode% 


text$: Der Text, der ausgegeben werden soll 
mode%: 0 = PRINT text$ 
1 = PRINT text$; 


Hier zunächst das Programm: 


EEE EEE HHIHHHTHTHTHIHTIHHEEER 
' 

'# Programm: Schatten-Druck 

‘# Datum: 25.12.86 


ı# Autor: tob 
'# Version: 1.0 
'4 


EHER EHER 
PRINT "Suche die .bmap-Datei..." 


'GRAPHICS-Bibliothek 
'Text() 

'Move() 

'SetDrMd( ) 


LIBRARY "graphics.Library" 


main: ı* Kontrastfarben 
PALETTE 0,.5,.5,.5 
CLS 
LOCATE 5,1 
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PRINT "Dies ist der langweilige und kontrastarme" 
PRINT normaldruck. Nicht sehr hervorstechend.. ." 
PRINT 


Schatten "Schatten-Print ist genauso schnell wie PRINT!",O 
Schatten "Das klappt nur durch konsequenten Einsatz der",O0 
Schatten "Text()-Funktion aus der Grafik-Bibliothek!",O 
PRINT 

Schatten "Der Text scheint effektreich VOR DEM SCHIRM zu",O 
Schatten "schweben.",O 


ende: LIBRARY CLOSE 
END 


SUB Schatten(Text$,mode%) STATIC 
ı* Parameter festlegen 


textlen% = LEN(Text$) 

tiefe =2 

c‘% = PEEKW(WINDOWC8)+36) 
cY% = PEEKWCWINDOW(8)+38) 


ı* Schatten zeichnen 

COLOR 2,0 

CALL Move(WINDOW(B),cX%+tiefe%,cY%+tiefe%) 
CALL Text(WINDOW(8),SADD(Text$), textlen‘) 


ı* JAM1 und Vordergrund zeichnen 

CALL SetDrMd(WINDOW(8),0) 

COLOR 1,0 

CALL Move(WINDOW(8),cX%,cY%) 

CALL Text(WINDOWC8) ,SADD(Text$), textlen‘) 


ı* CR nach Bedarf 

IF mode% = O0 THEN 
PRINT 

END IF 


ı* und wieder JAM2 und fertig! 
CALL SetDrMd(WINDOW(8), 1) 
END SUB 


Während des Zeichenprozesses ist es nötig, den Zeichenmodus 
von JAM2 auf JAMI umzuschalten, denn sonst würde der weiße 
Text den schwarzen völlig auslöschen. 


Wir benutzten in diesem Programm die Text-Funktion an Stelle 
des PRINT-Befehls, weil es hier auf Geschwindigkeit ankommt. 
Text ist mehr als dreimal so schnell wie PRINT. Damit ist un- 
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sere Schatten-Textausgabe schneller als ein normales PRINT- 
Kommando! Wenn Sie den Unterschied einmal "sehen" wollen, 
dann tauschen Sie die Zeile: 


CALL Text(cWINDOW(8),SADD(text$), textlen%) 


gegen die Zeile 


PRINT text$ 


aus. Der Unterschied ıst enorm. Hier nun dasselbe in GFA- 
BASIC: 


schatten(100,40,"Hallo liebe Welt!") 
0 


PROCEDURE schatten(x,y,text$) 
GRAPHMODE 0 
COLOR 3 
TEXT x+1,y+1,text$ 
COLOR 1 
TEXT x,y,text$ 
GRAPHMODE 1 
RETURN 


Der enorme Befehlsumfang macht eine wesentlich effizientere 
Programmierung möglich - wir benötigen nicht eine Systemrou- 
tine! 


3.7.3  OQutline-Druck - der besondere Flair 


Wenn man ihn sieht, denkt man zunächst an komplizierte Algo- 
rithmen und Maschinensprache - die Rede ist vom "Outline"- 
Druck. Hierbei wird nur die Silhouette des Textes gedruckt. 
Diese Schriftart fällt sofort ins Auge und eignet sich besonders 
gut für Überschriften. 


Realisiert wird dieser Modus durch folgende Technik: Im Zei- 
chenmodus JAMI wird der auszugebende Text in alle Himmels- 
richtungen jeweils um einen Pixel verschoben ausgegeben. Das 
Ergebnis ist ein "verschmierter" Textausdruck. Nun wird an die 
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Originalposition mit der Hintergrundfarbe der Text geschrieben. 
Man erhält den Outline-Effekt. 


Hier unsere Routine namens Outline. Sie entspricht im wesent- 
lichen der vorangegangenen Schattenroutine: 


I EEEEEEEHERHHHEERHRHHHRHHHHOR 
4 

'# Programm: Outline-Druck 

'# Datum: 25.12.86 

'# Autor: tob 

ı# Version: 1.0 

4 

HH EEEEEEEHHRHHHHEHERRHHHHHHR 


PRINT "Suche die .bmap-Datei..." 


'GRAPHICS-Bibliothek 
'Text() 

'Move() 

'SetDrMd() 


LIBRARY "graphics.Library" 


main: CLS 

LOCATE 8,1 

Outline " Outline-Print hat ein wahrhaft ins Auge 
stechendes Aeusseres!!,O 

Outline " Trotz eines sehr aufwendigen Zeichenprozesses 
ist die Outline-Routine!",O 

Outline " aeusserst schnell durch konsequenten Einsatz der 
Text()-Funktion.",O 

Outline " OUTLINE funktioniert natuerlich auch mit anderen 
Zeichensaetzen...!",O 


ende: LIBRARY CLOSE 
END 


SUB Outline(text$,mode%) STATIC 
ı* Parameter 


textlen% = LEN(text$) 
cX% = PEEKW(WINDOW(8)+36) 
cY% = PEEKWCWINDOW(8)+38) 


ı* JAM1 und Text verschmieren 

ı* eine Schleife macht's schneller und unuebersichtlicher 
CALL SetDrMd(WINDOW(8),O) 

CALL Move(WINDOW(8), cX%+1,cY%) 

CALL text(WINDOW(8) ,SADD(text$), textlen%) 

CALL Move(WINDOW(8),cX%-1,cY%) 
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CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


text(WINDOW(8) ,SADD(text$), textlen%) 
Move(WINDOW(8),cX%,cY%+1) 
text(WINDOW(8) ,SADD(text$), textlen‘) 
Move(WINDOW(8) ,cX%,cY%-1) 
text(WINDOW(8) ,SADD(text$), textlen‘%) 
Move (WINDOW(8) ,cX%-1,cY%-1) 
text(WINDOW(8) ,SADDCtext$), textlen%) 
Move(WINDOW(8) ,cX%+1,cY%+1) 
text(WINDOW(8) ,SADD(text$), textlen%) 
Move(WINDOW(8) ,cX%+1,cY%-1) 
text(WINDOW(8) ,SADD(text$), textlen%) 
Move (WINDOW(8) ,cX%-1,cY%+1) 
text(WINDOW(8) ,SADD(text$), textlen‘) 


ı* Hintergrundfarbe und Text lochen 
COLOR 0,0 


CALL 


CALL text(WINDOW(8) ,SADD(text$), textlen“) 


Move(WINDOW(8) ,cX%,cY%) 


ı#* Reset Modes und Farbe, CR nach Bedarf 
COLOR 1,0 
IF mode%=0 THEN 
PRINT 
END IF 


CALL 
END SUB 


SetDrMd(WINDOW(8),1) 


Und wieder das Beispiel in GFA: 


WHILE INKEY$=1" 


outline(RAND(640) ,RAND(256),"Hallo liebe Welt!") 


WEND 
ß 


PROCEDURE outline(x,y,text$) 


GRAPHMODE 


0 


COLOR RAND(64) 
"FOR loopi=-1 TO 1 
FOR loop2=-1 TO 1 
TEXT x+loop1,y+loop2,text$ 
NEXT loop2 


NEXT Loop1 


GRAPHMODE 


2 


TEXT x,y,text$ 


GRAPHMODE 
RETURN 


1 
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3.7.4 Softwaremäßige Schriftmodi 


Die Textausgabe des Amiga läßt sich programmieren: vier ver- 
schiedene Modi gibt es. Wir sprechen von dem Rastport-Offset 
56. In Abhängigkeit von seinem Inhalt stellt der Amiga Text 


a) normal 

b) fett 

c) unterstrichen 
d) kursiv 


dar. Außerdem lassen sich mehrere Modi miteinander 
kombinieren. Es gibt grundsätzlich zwei Möglichkeiten, zwischen 
den Modi umzuschalten: 


a) Direkte Rastport-Manipulation 
Bei dieser Methode wird der Modus durch direktes POKEn 
in den Rastport umgeschaltet. Das funktioniert so: 


normal %=0 

unterstrichen%=2"0 

fett%=2"1 

kursiv%=2"2 

[bei GFA nach OPENW O anstatt WINDOWC8): LPEEKCWINDOWCO)+50) ] 


POKE WINDOW(8)+56 unterstrichen‘ 
PRINT "Unterstrichener Text!" 


POKE WINDOW(8)+56, fett% 
PRINT "Fettdruck.." 


POKE WINDOW(8)+56,kursiv%+unterstrichen% 
PRINT "Kombiniert: Kursiv und unterstrichen! 


POKE WINDOW(8)+56,normal% 


b) Via Grafik-Bibliothek 


In dieser Bibliothek gibt es zwei Funktionen, die mit dieser 
Thematik zu tun haben: 


AskSoftStyle() 


und 
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SetSoftStyle() 


Das Prinzip ist ähnlich: Wieder stehen die vier Grundtypen 
zur Verfügung, wieder lassen sie sich mischen. Der Aufruf 
des SetSoftStyle-Befehls besitzt jedoch ein drittes Feld: 


newStyle%=SetSoftStyleX%(rastport ‚modus, enable) 


rastport: Adresse des Rastports 
modus: Der gewünschte Stil 
enable: Die zur Verfügung stehenden Modi 


Es kann vorkommen, daß ein Zeichensatz sich mit einem be- 
stimmten SoftStyle nicht verträgt und unleserlich wird. Deshalb 
hat die Grafik-Bibliothek das Enable-Feld ins Spiel gebracht. 
Die AskSoftStyle-Funktion erfragt eine Maske, die alle legalen 
Typen des augenblicklichen Zeichensatzes zurückliefert. Dieser 
Wert wird dann SetSoftStyle übergeben. Hier ein Programmbei- 
spiel: 


HERR 
'# 

ı# Programm: SoftStyle 

‘# Datum: 20.12.86 


ı# Autor: tob 
ı# Version: 1.0 
A 


HEHE HERHEHHHHHHR 

! Demonstriert die Verwendung verschiedener Schrift- 
' arten, sogenannter "SoftStyles", die softwarege- 

ı steuert, also algorithmisch zustande kommen. 


PRINT "Suche das .bmap-File..." 
'GRAPHICS-Bibliothek 

DECLARE FUNCTION AskSoftStyle& LIBRARY 
DECLARE FUNCTION SetSoftStyle& LIBRARY 
'SetDrMd( ) 


LIBRARY "graphics.library" 


init: normal =0 
unterstrichen = 2°0 
fett = 271 
kursiv = 22 


CLS 
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main: 
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'* JAM1 fuer lesbare Schraegschrift 


CALL SetDrMd(WINDOW(8),0) 

LOCATE 4,1 

SetStyle unterstrichentfett 

PRINT TAB(8);"ALGORITHMISCH GENERIERTE SCHRIFTARTEN" 

PRINT 

SetStyle normal 

PRINT "Amiga kann eine Menge machen mit den bestehenden 
Zeichensaetzen." 

PRINT "Ohne eine "; 

SetStyle unterstrichen 

PRINT "Definitionsaenderung"; 

SetStyle normal 

PRINT " lassen sich folgende Aenderungen vornehmen: " 

PRINT 

SetStyle fett 

PRINT "FETT-Druck" 

SetStyle kursiv 

PRINT "SCHRAEG-Druck" 

SetStyle unterstrichen 

PRINT "UNTERSTRICHENER Text!" 

SetStyle unterstrichentkursiv 

PRINT "und GEMISCHT." 

PRINT 

SetStyle normal 

PRINT "Damit lassen sich Texte wesentlich professioneller 
gestalten." 

CALL SetDrMd(WINDOW(8),1) 


LIBRARY CLOSE 


END 


SUB SetStyle(mode) STATIC 


01 
ı2°0 
21 
ı2"2 
mode% 


normal 
unterstrichen 
fett 

kursiv 
CINT(mode) 


ı* Font kontrollieren und wenn moeglich verformen 


enable% = AskSoftStyle&(WINDOW(8)) 
newStyle% = SetSoftStyle&(WINDOW(8) ‚mode%, enable%) 
END SUB 


Vielleicht ist Ihnen etwas aufgefallen: Der Kursivdruck des 
ersten Beispiels sah etwas unförmig aus. Bei diesem Programm 
erschien er jedoch leserlich. Das Geheimnis ist schnell gelüftet: 
Der Kursivdruck funktioniert nur im Zeichenmodus JAMI kor- 
rekt, denn durch die Schrägstellung der Zeichen fällt jeweils der 
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rechte Teil in den Einflußbereich des nächsten Buchstabens. Ist 
dann der normale Modus JAM2 aktiv, wird dieser Teil durch die 
Hintergrundfarbe überdeckt, und die Zeichen erscheinen abge- 
hackt. 


3.8 Der Rastport als Teil des Grafik-Betriebssystems 


Sie haben nun Ihre ersten Erfahrungen mit dem Rastport ge- 
macht und sollten einen ungefähren Einblick in seine Möglich- 
keiten bekommen haben. Wieder ist es an der Zeit, einen Blick 
auf das Gesamtkonzept des Amiga zu werfen. In Kapitel 3.5 
hatten wir noch erhebliche Schwierigkeiten, ein vollständiges 
Bild des Systems zu bekommen. Jetzt gesellt sich der Rastport als 
Vertrauter zu Fenster und Screen: 







Bitmap 


Rastport 


Layer 


Damit läßt sich das System schon wesentlich besser darstellen. 
Wir setzen den Rastport in die Zeichnung aus Kapitel 3.5: 
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Fenster 
. ar 


Layer 


Noch immer fehlen Informationen über Viewport und Bitmap. 
Es ist sogar noch ein weiterer Unbekannter hinzugekommen: ein 
Layer. Aber das Bild, das sich uns vom Amiga-System bietet, 
wird immer schärfer. 


Als nächstes werden wir uns die Bitmap-Datenstruktur vorneh- 
men. 
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3.9 Die Bitmap-Struktur 

Mit dieser Struktur erhalten wir Kontakt zu den RAM-Bänken, 
in denen der Screen-Inhalt abgespeichert ist. Es handelt sich um 
eine 40 Bytes große Datenstruktur: 


Datenstruktur "Bitmap"/graphics/40 Bytes 


Offset Typ Bezeichnung 

+ 000 Word Bytes pro Display- Zeile 

+ 002 Word Anzahl der Display-Zeilen 

+ 004 Byte System-Flag (bzw. unbenutzt) 
+ 006 Byte Anzahl der Bitplanes ("Tiefe") 
+ 006 Word unbenutzt 

+ 008 Long Zeiger auf 1. Bitplane 

+ 012 Long Zeiger auf 2. Bitplane 

+ 016 Long Zeiger auf 3. Bitplane 

+ 020 Long Zeiger auf 4. Bitplane 

+ 024 Long Zeiger auf 5. Bitplane 

+ 028 Long Zeiger auf 6. Bitplane 

+ 032 Long Zeiger auf 7. Bitplane 

+ 036 Long Zeiger auf 8. Bitplane 


Die Anfangsadresse dieser Struktur läßt sich beispielsweise so 
ermitteln: 


bitmap&=PEEKL(WINDOW(B)+4) 


GFA: 


OPENW 0 
bitmap%=LPEEK(LPEEK(WINDOW(0)+50)+4) 


Die ersten beiden Felder enthalten die Abmessungen des Dis- 
plays, das die Bitplanes speichern: 


bitmap&=PEEKL(WINDOW(8)+4) "GFA: S.o. 
x%=PEEKW(bi tmap&)*8 

y%=PEEKW(bi tmap&+2) 

PRINT "Ausdehnung: horiz. ";x%; 


PRINT "vert. ";y% 
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Das vierte Feld enthält die Anzahl der benutzten Bitplanes. Im 
Augenblick lassen sich bis zu 6 Bitplanes aktivieren, die Zeiger 
auf die 7. und 8. Bitplane existieren wegen der Aufwärtskompa- 
tibilität zu späteren Amigas. 


— Der Viewpot —— 209 


4. Der Viewport 


Fast haben wir die Grafik-Hardware des Amiga nun erreicht. 
Der Viewport repräsentiert das elementarste Display des Amiga. 
Dabei handelt es sich um einen Datenblock von 40 Bytes: 


Datenstruktur "Viewport"/graphics/40 Bytes 


Offset Type Bezeichnung 

+ 000 Long Zeiger auf nächsten Viewport 

+ 004 Long Zeiger auf ColorMap 

+ 008 Long DspIns: Copper-Liste von MakeView 
+ 012 Long SprIns: Copper-Liste für Sprites 

+ 016 Long ClirIns: Copper-Liste für Sprites 

+ 020 Long UCoplIns: User Copper-Liste 


+ 024 Word Breite des Displays 

+ 026 Word Höhe des Displays 

+ 028 Word X-Offset von (0,0) der Bitplanes 
+ 030 Word Y-Offset von (0,0) der Bitplanes 
+ 032 Word Viewport-Modi 


Bit 1: 1=GENLOCK VIDEO 
Bit 2: 1=INTERLACE 

Bit 6: 1=PFBA 

Bit 7: 1=EXTRA HALFBRITE 
Bit 8: 1=GENLOCK AUDIO 


Bit 10: 1=DUALPF 
Bit 11: 1=HAM 
Bit 13: 1=VP-HIDE 
Bit 14: 1=SPRITES 
Bit 15: 1=HIRES 
+ 034 Word reserviert 
+ 036 Long Zeiger auf RasInfo-Struktur 


Bevor wir die einzelnen Komponenten dieser Struktur einer nä- 
heren Untersuchung unterwerfen, ist es notwendig, die Bedeu- 
tung des Viewports zu klären. 


Ein Viewport ist nichts weiter als eine Datenstruktur im RAM- 
Speicher. Sie repräsentiert jedoch einen Teil des Displays, also 
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einen Teil dessen, was Sie auf dem Bildschirm sehen. Bei nähe- 
rer Betrachtung der Screen-Struktur aus Kapitel 3.4 werden Sie 
feststellen, daß der Viewport Teil dieser Struktur ist. Die Ver- 
mutung liegt also nahe, daß ein Intuition-Screen nichts anderes 
ist als ein Viewport nebst etwas Beiwerk. Das ist tatsächlich der 
Fall. Das Herz eines jeden Screens ist ein Viewport. 


Ein Display besteht aus einem oder mehreren Viewports. Die 
folgende Zeichnung demonstriert dies: 


Viewport Nr. 1 Display 


Hintergrund - 


Viewport Farbe 
Nr. 2 


Monitor 


Viewport Nr. 3 


C= Commodore Model 1081 i 





Viewports unterliegen gewissen Einschränkungen. So ist es nicht 
möglich, Viewports nebeneinander darzustellen. Viewports dür- 
fen sich außerdem nicht überschneiden und müssen mindestens 
eine Pixelzeile von einander Abstand halten. 


Jeder Viewport kann seine eigene Grafikauflösung, eigene Far- 
ben, eigene Bitplanes besitzen. Der Viewport selbst läßt sich 
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wiederum in separate Zeichenflächen unterteilen, die Fenster. 
Diese Fenster unterliegen selbstverständlich keinen Beschränkun- 
gen und dürfen sich überlappen. 


Kommen wir nun zur detaillierten Beschreibung der Daten- 
struktur. 


4.1 Kommentar zur Datenstruktur Viewport 


Offset 0: Nächster Viewport 


Ein Display kann aus einem oder mehreren Viewports bestehen. 
Alle existierenden Viewports sind in einer Kette organisiert. 
Dieses Feld zeigt zum nächstfolgenden Viewport des Displays. Ist 
dieses Feld =0, dann existieren keine weiteren Viewports. 


Offset 4: Colormap 


Jeder Viewport kann seine eigenen Farben definieren. Dies ist 
ein Zeiger zu einer Datenstruktur namens "Colormap", die die 
RGB-Werte dieser Farben enthält. In Abhängigkeit von der 
Anzahl der vorhandenen Bitplanes kann ein jeder Viewport bis 
zu 32 völlig individuelle Farben nutzen (ohne Hinzunahme von 
Spezialmodi versteht sich). 


Offset 8, 12, 16 und 20: Copper-Listen 


Der Copper ist einer der drei Amiga Grafik-Coprozessoren. Er 
beherrscht das gesamte Display und manipuliert Register, bewegt 
Sprites, programmiert den Blitter (der Kopier-Prozessor). Für 
den Copper wurde eine eigene Programmiersprache entwickelt, 
die aus nur drei Befehlen besteht. Diese Felder der Viewport- 
Struktur enthalten die Copper-Befehlslisten, die der Prozessor 
braucht, um den durch den Viewport repräsentierten Teil des 
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Displays korrekt darstellen zu können. Die erste Liste stellt eine 
Zusammenfassung der anderen drei Listen dar und wird für das 
Display des Viewports verwendet. 


Mehr darüber erfahren Sie einige Kapitel später, wenn wir uns 
mit der Programmierung des Coppers beschäftigen. 


Offset 24 und 26: Breite und Höhe 


Hier finden Sie die Breite und die Höhe des durch diesen View- 
port kontrollierten Display-Teils. 


Offset 28 und 30: Bitmap-Offset 


Hier finden Sie die Koordinaten der linken oberen Ecke des 
Viewports relativ zum gesamten Display. Mit diesen Werten läßt 
sich der Viewport positionieren. DyOffset kann zwischen -16 
und +200 variieren (bei Interlace -32 bis +400), DxOffset zwi- 
schen -16 bis +352 (bei Hi-Res -32 bis +704). 


Offset 32: Die Viewport-Modi 


Amiga kennt verschiedene Grafik-Modi, wovon Hi-Res (640 
Punkte horizontal) und Interlace (400 Punkte vertikal) wohl die 
bekanntesten sein dürften. In diesem Feld ist der augenblickliche 
Modus zu finden. 


Offset 36: Der RasInfo-Block 


Jeder Viewport besitzt mindestens eine an ihn gebundene Ras- 
Info-Datenstruktur. Wir werden sie Ihnen ein paar Seiten später 
ım Detail vorstellen. 


4.2 Die Grafik-Modi des Amiga 


Insgesamt kennt der Amiga neun Spezial-Grafik-Modi. Es sind 
dies: 
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Genlock Video 
Interlace 
PFBA 

Extra Halfbrite 
DUALPF 
HAM 
VP-Hide 
Sprites 

Hi-Res 


Zumindest Hi-Res und Interlace werden Ihnen bereits bekannt 
sein, denn AmigaBASIC unterstützt diese beiden. Der Amiga- 
BASIC-Befehl SCREEN ist in der Lage, Screens vom Typ Lo- 
Res (normal, 320 Pixel breit), Hi-Res (640 Pixel breit) sowie 
Interlace (512 statt 256 Pixel hoch) zu schaffen. 


Das Sprites-Flag muß gesetzt werden, wenn innerhalb des View- 
ports Sprites oder VSprites erscheinen sollen. Dies ist normaler- 
weise der Fall. 


VP-Hide ist gesetzt, wenn dieser Viewport gerade von anderen 
Viewports überdeckt ist (also beispielsweise ein Screen unter ei- 
nem anderen liegt). Dadurch wird dieser Viewport nicht darge- 
stellt. 


Genlock Video bewirkt, daß an Stelle der Hintergrundfarbe das 
Videosignal einer externen Quelle dargestellt wird. Das könnte 
beispielsweise ein Videorecorder oder eine Kamera sein. Um 
diesen Modus nutzen zu können, ist ein Genlock-Interface nötig. 


DUALPF steht für "Dual Playfield". In diesem Modus lassen sich 
innerhalb eines Viewports zwei Display-Ebenen schaffen, wobei 
die Hintergrundfarbe der oberen Ebene transparent ist. Wir 
kommen darauf zurück. 


PFBA arbeitet mit dem Dual Playfield Modus. Es bestimmt die 
Videoprioritäten der beiden Ebenen. 
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HAM steht für "Hold and Modify". Mit Hilfe dieses Modus las- 
sen sich alle 4096 Farben des Amiga gleichzeitig auf dem Screen 
darstellen. Diese Darstellungsart ist jedoch extrem schwierig zu 
programmieren. Wir kommen gleich auf sie zurück. 


Extra Halfbrite ist ein neuer Grafik-Modus, mit dessen Hilfe 
sich anstatt der bisher 32 nun bis zu 64 Farben gleichzeitig dar- 
stellen lassen. 


4.2.1 Der Halfbrite-Modus 


Extra Halfbrite ist einer der Grafik-Spezialmodi, die nicht vom 
SCREEN-Befehl des AmigaBASIC unterstützt werden. Es ist da- 
her unmöglich, einen Screen mit diesem Grafik-Modus durch 
SCREEN zu erzeugen. 


Es gibt jedoch die Möglichkeit, einen bereits bestehenden Screen 
in einen Halfbrite-Screen zu verwandeln. Bevor wir Ihnen 
zeigen, wie das funktioniert, erläutern wir erst einmal die Half- 
brite-Technik. 


Im Normalfall isst der Amiga in der Lage, bis zu 32 Farben 
gleichzeitig darzustellen. Diese Zahl resultiert zum einen aus der 
maximal zulässigen Zahl von Bitplanes (5, 25=32), zum anderen 
aus der Tatsache, daß der Amiga lediglich 32 Farbregister be- 
sitzt, in denen die Farben mittels des AmigaBASIC-Befehls PA- 
LETTE definiert werden können. 


Ist der Halfbrite-Modus aktiviert, dann lassen sich sechs Bit- 
planes verwenden. Dadurch erhöht sich die Anzahl der darstell- 
baren Farben von 25=32 auf 26=64. Bleibt noch das Problem der 
32 Farbregister. Wo sollen die zusätzlichen 32 Farben definiert 
werden? Zu diesem Zweck wird jedes der 32 existierenden 
Farbregister doppelt benutzt: Die Farben O0 bis 31 werden wie 
bisher direkt aus den Farbregistern 0 - 31 bestimmt. Die Farben 
32 bis 63 benutzen dieselben Farbregister 0 - 31, jedoch mit ei- 
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nem Unterschied: Die in den Registern gespeicherten Rot-, 
Grün- und Blau-Werte werden um ein Bit nach rechts verscho- 
ben. 


Daraus ergeben sich drei Konsequenzen: Erstens lassen sıch die 
zusätzlichen 32 Halfbrite-Farben nicht frei definieren. Sie hän- 
gen ab von den entsprechenden ersten 32 Farben. Zweitens wer- 
den die zusätzlichen Farben Kopien der existierenden Farben, 
die jedoch dunkler erscheinen (deshalb Halfbrite=Half Bright). 
Drittens: Sind die von Ihnen definierten ersten 32 Farben an sich 
bereits dunkel, dann unterscheiden sich die Halfbrite-Farben ge- 
gebenenfalls nicht von den ersten 32 Farben. 


So schwerwiegend diese Einschränkungen auf den ersten Blick 
erscheinen, Halfbrite lohnt sich trotzdem! Sie bekommen zu Ih- 
ren 32 Farben 32 etwas dunklere Varianten. Damit läßt sich viel 
anfangen! 


Da Halfbrite von BASIC aus nicht ohne weiteres zu aktivieren 
ist, erzeugen wir zunächst einen ganz normalen Screen der Tiefe 
5 (5 Bitplanes). Aus den vorangegangenen Kapiteln kennen wir 
uns bereits sehr gut aus im Amiga-Grafiksystem. Es wird uns 
nicht schwerfallen, eine sechste Bitplane in die Bitmap-Struktur 
des Screens einzufügen. Anschließend braucht nur noch das 
Halfbrite-Flag des Viewports gesetzt zu werden, und (fast) sind 
wir am Ziel (es gibt dann noch ein kleines Problem, auf das wir 
aber gleich noch zu sprechen kommen). 


Zur Realisierung unseres Problems benötigen wir Zugriff auf 
zwei System-Bibliotheken: exec und intuition. Wir brauchen die 
Funktionen 


RemakeDisplay() 
AllocMem() 
FreeMem() 


Es folgt nun das Programm, der Halfbrite-Aktivator. Neben dem 
Demoprogramm besteht es aus den beiden SUBs "HalfBriteEin" 
und "HalfBriteAus". Beide verlangen kein Argument. 
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'# 

‘# Programm: Halfbrite-Aktivator 
ı# Datum: 17.1.87 

ı# Autor: tob 

ı# Version: 1.1 

ı# 





Aktiviert den von AmigaBASIC sonst nicht zugaenglichen 
Amiga Grafik-Spezialmodus "Halfbrite". Bei 6 Bitplanes 
stehen insgesamt 64 verschiedene Farben zur Verfuegung. 
Die Funktionsweise und effektivste Programmierung dieses 
Modus! ist im Grafik-Buch genau erlaeutert. ACHTUNG: Die- 
ser Modus funktioniert nur im LoRes (Low Resolution) 
Display! 


PRINT "Suche die .bmap-Dateien..." 


IEXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 
!'FreeMem 


!INTUITION-Bibliothek 
'RemakeDisplay() 


LIBRARY "intuition. Library" 
LIBRARY "exec.Library" 


main: *'* Einen SCREEN der Tiefe 5 eroeffnen 
LoRes = 1 
screen.nr% = 1 
screen.x% = 320 
screen.yX = 200 
screen.tiefeX% =5 5 Planes erforderlich! 


screen.aufloesung% = loRes 
SCREEN screen.nr%,screen.x%,screen.y%,screen.tiefe%,screen. 
aufloesung% 


ı* Ein FENSTER im neuen Screen eroeffnen 
fenster.nr% =|1 
fenster.name$ = "Halfbrite!" 

WINDOW fenster.nr%, fenster.name$, , ‚screen.nr% 


ı* HalfBrite aktivieren! 
HalfBriteEin 


demo 


PRINT TAB(10);'"Der HalfBrite-Modus !" 


'* Die Originalfarben... 
LOCATE 3,2:COLOR 1,0 
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PRINT "A "; 

FOR loop%=0 TO 31 
COLOR 0,loop% 
PRINT " "; 

NEXT loop% 


ı* „„.und die HalfBrite-Farben! 
LOCATE 4,2:COLOR 1,0 


PRINT "B "; 

FOR loop%=32 TO 63 
COLOR 0,loop% 
PRINT " "; 

NEXT Loop% 


LINE (22,15)-(280,32),1,b 

LOCATE 7,2:COLOR 1,0 

PRINT "A: Die 32 Originalfarben, gespeichert" 
PRINT " in den Hardware-Farbregistern" 


LOCATE 10,2 

PRINT "B: Die zusaetzlichen 32 HalfBrite-" 
PRINT "" Farben, entsprechend den Original-" 
PRINT " Farben mit halber Intensitaet." 


LOCATE 14,2 

PRINT "Das blinkende Beispiel zeigt: Wird" 
PRINT " das Farbregister der Originalfarbe" 
PRINT " veraendert, aendert sich auch die " 
PRINT " HalfBrite-Farbe entsprechend! - 


LOCATE 19,4 
PRINT "[Linke Maustaste druecken! }" 


WHILE check% = 0 
check% = MOUSE(O) 
PALETTE 30,.7,.2,.9 
FOR t = 1 TO 500:NEXT t 
PALETTE 30,.3,.8,.1 
FOR t = 1 TO 500:NEXT t 
WEND 


FOR loop% = 0 TO 31 
COLOR Loop%, loop%+32 
LOCATE 20,1 
PRINT "TEST FARBE ";loop% 
PRINT "Schriftfarbe = Originalfarbe" 
PRINT "Hintergrundfarbe = HalfBrite-Farbe" 
FOR t = 1 TO 500:NEXT t 
NEXT Loop% 
CLS 
COLOR 1,0 
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ende: '* HalfBrite ausschalten und SCREEN schliessen 
HalfBriteAus 
WINDOW fenster.nr%, fenster.name$, , ,- 1 
SCREEN CLOSE screen.nr% 
PRINT "DEMO ist beendet!" 
LIBRARY CLOSE 
END 


SUB HalfBriteEin STATIC 
SHARED screen.modus% 
SHARED screen.viewport& 


'* Variablen definieren 
MEM.CHIP = 2°1 
MEM.CLEAR = 2°16 


memory.option& = MEM.CHIP+MEM.CLEAR 
window.base& = WINDOW(7) 

screen.base& = PEEKL(window.base&+46) 
screen.bitmap& = screen.base&t+t184 

screen. viewport& = screen.base&+44 
screen.rastport& = screen.base&+84 
screen.weite% = PEEKW(screen.bitmap&) 
screen.hoehe% = PEEKW(screen.bitmap&+2) 
Screen.groesse& = screen.weite%*screen.hoehe% 
screen.tiefe% = PEEK(screen.bitmap&t5) 
screen.modus% = PEEKW(screen.viewport&+32) 


ı* SCREEN hat schon 6 BitPlanes? 
IF screen.tiefe%>5 THEN screen.tiefe%=2"8 


ı* die fehlenden Bitplanes einbauen 
FOR loopi%=screen.tiefe%+1 TO 6 
plane&( loop1%) = AllocMem&(screen.groesse& ‚memory.option&) 
IF plane&(loop1%) = O0 THEN 
FOR loop2% = screen.tiefe%+1 TO loop1%-1 
CALL FreeMem(plane&(loop2%) , screen.groesse&) 
NEXT Loop2% 
ERROR 7 
END IF 
POKEL screen.bitmap&+4+4*loop1%,plane&( loop1%) 
NEXT Loop1% 
POKE screen.bitmap&+5,6 


ı* HalfBrite einschalten 
POKEW screen. viewport&+32,(screen.modus% OR 2°7) 
CALL RemakeDisplay 

END SUB 


SUB HalfBriteAus STATIC 
SHARED screen.modus% 
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SHARED screen. viewport& 


ı* HalfBrite-Flag zuruecksetzen 
POKEW screen. viewport&+32,screen.modus% 
CALL RemakeDisplay 

END SUB 


Arbeiten mit Halfbrite: 


Nachdem Sie das SUB "HalfBriteEin" aufgerufen haben, stehen 
Ihnen 64 verschiedene Farben zur Verfügung. Die ersten 32 
Farben können Sie frei definieren. Benutzen Sie dazu den PA- 
LETTE-Befehl des AmigaBASIC: 


PALETTE register,rot,grün,blau 


register: 0-31 
rot, gruen, blau: 0.0 - 1.0 


Die Farben 32 bis 63 werden entsprechend mitdefiniert (sie sind 
halb so hell). 


Mit Hilfe des COLOR-Befehls können Sie nun frei zwischen 
den Farben 0 - 63 wählen, damit zeichnen, schreiben, füllen! 
Lediglich ein Hinweis ist wichtig: Für AmigaBASIC besitzt der 
Screen nach wie vor nur 5 Bitplanes. Wenn AmigaBASIC also 
den Screen-Inhalt scrollt (wenn Sie beispielsweise in die unterste 
Zeile des Fensters schreiben), dann scrollen nur fünf Planes, die 
sechste steht still. Vermeiden Sie daher, in die unterste Fenster- 
zeile zu printen. 


Wenn Sie den Halfbrite-Modus nicht mehr brauchen, können Sie 
ihn durch Aufruf des SUBs "HalfBriteAus" deaktivieren. 


Programm-Hinweis: Am Anfang dieses Kapitels haben wir von 
einem Problem gesprochen, das es gibt, sobald das Halfbrite- 
Flag im Viewport verändert wird. Bei dem Problem handelt es 
sich um die Tatsache, daß sich gar nichts tut, wenn man dieses 
Flag setzt. Es ist überhaupt völlig egal, was für Manipulationen 
Sie im Viewport vornehmen, es wird sıch im Display nicht das 
Geringste verändern. 
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Diese etwas merkwürdige Feststellung ist jedoch eine logische 
Konsequenz: Viewport ist lediglich ein Datenblock ım RAM, 
kein Hardware-Register. Das Display wird aber nur durch die 
Hardware-Register verändert. Vielmehr enthält der Viewport le- 
diglich die Anweisungen, wie das Display beschaffen sein soll. 
Diese Anweisungen müssen aber erst zum Copper geschickt wer- 
den, der sie dann ausführt und die Hardware entsprechend pro- 
grammiert. 


Änderungen im Viewport werden erst ausgeführt, wenn die In- 
tuition-Funktion "RemakeDisplay" aufgerufen wird. Durch sie 
werden neue Copper-Listen erstellt, die die Änderungen in der 
Viewport-Struktur reflektieren. Diese Listen werden an- 
schließend zum Copper geschickt. 


Viel einfacher sieht obiges Programm aus, wenn man es unter 
GFA-BASIC programmiert. Dann nämlich entfallen all die lang- 
wierigen Systemmanipulationen, denn GFA unterstützt sämtliche 
mögliche Videodarstellungen des Amigas, so auch Extra_Half- 
brite: 


ı extra_halfbrite Screen 
OPENS 1,0,0,320,256,6,128 
OPENW 0,0,0,320,256,0,0 
ß 
WHILE INKEY$="" 
COLOR RAND(64),RAND(64) ,RAND(64) 
DEFFILL 1,RAND(2)+2,RAND(24)+1 
PBOX RAND(320),RAND(256) ,RAND(320),RAND(256) 
WEND 
ß 


DEFFILL 1,1,0 
WHILE INKEY$S="" 
COLOR RAND(64) ,RAND(64) ,RAND(64) 
x=RAND (320) 
y=RAND (256) 
PBOX x,y,x+30,y+30 
WEND 
' 
FOR x=0 TO 31 
COLOR x,xX,X 
PBOX x*10,50,x*10+9, 100 
COLOR x+32,x+32,x+32 
PBOX x*10,150,x*10+9,200 
NEXT x 
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WHILE INKEY$="" 
WEND 
CLOSES 1 


4.2.2 Der Hold-And-Modify Modus: 4096 Farben 


Auch der Hold-And-Modify-Modus (kurz HAM) wird nicht 
von AmigaBASIC unterstützt. Er läßt sich nicht durch SCREEN 
einschalten. 


Sie werden es sich schon gedacht haben: Auch dieser Modus läßt 
sich nachträglich in einen bereits existierenden Screen einbauen. 
Bevor wir das tun, wollen wir uns das Prinzip dieses Modus vor 
Augen führen: 


Ist der HAM-Modus aktiv, dann lassen sich bis zu 4096 Farben 
gleichzeitig darstellen. Es ıst klar, daß dazu ein besonderes Ver- 
fahren angewendet werden muß, denn unter den herkömmlichen 
Bedingungen wären zur Darstellung von 4096 Farben 12 Bitpla- 
nes erforderlich. Erstens würde dies einem immensen Speicher- 
platzverbrauch gleichkommen (1 Bitplane = 64.000 Bytes in Lo- 
Res, 12 Bitplanes = 768,000 Bytes!), zweitens ist Amiga’s DMA 
(Direct Memory Access) gar nicht schnell genug, aus 12 ver- 
schiedenen RAM-Stücken alle 1/50 Sekunde ein neues Bild zu 
basteln. 


In Wirklichkeit arbeitet HAM mit nur sechs Bitplanes, genau wie 
der Halfbrite-Modus. Die ersten 16 Farben erscheinen in genau 
der Farbe, in der sie definiert wurden (also analog zu den ersten 
16 Farbregistern). Alle anderen Farben werden nach dem HAM- 
Prinzip bestimmt. Sie nehmen die Farbe des Pixels zur Linken 
an und verändern jeweils den Rot-, Grün- oder Blauwert. 


Bevor wir die etwas komplexe Gestaltung einer HAM-Grafik 
behandeln, wollen wir den Modus aktivieren. Das geschieht ähn- 
lich wie beim Halfbrite-Modus: Eine sechste Bitplane wird er- 
zeugt, in die Bitmap eingebaut, und schließlich wird das HAM- 
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Flag im Viewport gesetzt. Der Aufruf "RemakeDisplay" schaltet 
das Display um. Wieder finden Sie zwei SUBs: HAMein und 
HAMaus. 


ur 
4 
ı# Programm: HAM-Aktivator 
ı# Datum: 16.2.87 

ı# Autor: tob 

ı# Version: 1.4 

'# 








ı Aktiviert den von AmigaBASIC sonst nicht zugaenglichen 

' Amiga Grafik-Spezialmodus "HAM! (Hold-And-Modify), mit 

ı dem sich bis zu 4096 Farben gleichzeitig (bei 6 Bitplanes) 
ı darstellen lassen. ACHTUNG: Dieser Modus funktioniert 

" nur im LoRes (Low Resolution) Display! 


PRINT "Suche die .bmap-Dateien..." 
!EXEC-Bibliothek 

DECLARE FUNCTION AllocMem& LIBRARY 
'FreeMem( ) 


!INTUITION-Bibliothek 
'RemakeDisplay() 


LIBRARY "intuition. Library" 
LIBRARY "exec.Library" 


main: '* Einen SCREEN der Tiefe 5 eroeffnen 
loRes = 1 
screen.nr‘% = 1 
screen.x% = 320 
screen.Y% = 200 
screen.tiefeX% = 5 !5 Planes noetig 
screen.aufloesung‘% = loRes 
SCREEN screen.nr%,screen.x%,screen.y%,screen.tiefe%,screen. 


aufloesungX% 


ı* Ein FENSTER im neuen Screen eroeffnen 
fenster.nr% =|1 
fenster.name$ = "HAM! 4096 Farben herbei!" 

WINDOW fenster.nr%, fenster.name$, ,‚screen.nr% 


demo: '!* HalfBrite aktivieren! 
HAMein 


PRINT TAB(7) "256 aus 4096 Farben!" 
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s = 10 'Kaestchengroesse 

x = 40 "Position der linken 

y = 20 "oberen Ecke der Demo 
PALETTE 3,0,0,0 'Rahmenfarbe 
PALETTE 4,.5,0,.5 'dunkel-rotblau 
PALETTE 5,1,0,1 thell-rotblau 
PALETTE 6,1,0,0 'hell-rot 
PALETTE 7,0,0,1 !hell-blau 


ı* Setzen der Orientierungsmarken 
LINE (5,y)-(5+8,y+8) ,4,bf 

LINE (240,y)-(240+8,y+8),7,bf 
LINE (5,166)-(5+8,166+8) ,6,bf 
LINE (240,166) -(240+8,166+8) ,5,bf 


ı* Zeichnen des Rahmens 
LINE (x-1,y-1)-(x+17*s+1,y+16*s+1),3,b 


ı* Die ersten 256 HAM-Farben zeichnen 
FOR loop% = 0 TO 15 

LINE (x, loop%*s+y)-(s+x,loop%*s+s+y) ,‚32+loop%,bf 

FOR loop2% = 0 TO 15 

LINE (s+loop2%*s+x, loop%*s+y)-(2*s+loop2%*s+x, loopX%*s+sty), 
Loop2%+16,bf 

NEXT Lloop2% 

NEXT loop% 


ı* Den Gruen-Level erhoehen 
FOR loop2% = 0 TO 15 

PALETTE 3,0, loop2%*(1/15),0 

LOCATE 10,28 

PRINT "Gruenlevel:" 

PRINT TAB(31) loop2% 

FOR t = 1 TO 3000:NEXT t 
NEXT Loop2% 


LOCATE 2,7 
PRINT "Bitte eine Taste druecken!'" 


WHILE INKEY$="":WEND 


ende: '%* HAM ausschalten und SCREEN schliessen 
HAMaus 
WINDOW fenster.nr%, fenster.name$,,, ‚1 
SCREEN CLOSE screen.nr% 
PRINT "DEMO ist beendet!" 
LIBRARY CLOSE 
END 


SUB HAMein STATIC 
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SHARED screen.modus% 
SHARED screen.viewport& 


ı* Variablen definieren 
MEM.CHIP = 2°1 
MEM.CLEAR = 2°16 


memory.option& = MEM.CHIP+MEM.CLEAR 
window.base& = WINDOW(7) 

screen.base& = PEEKL(window.base&+46) 
screen.bitmap& = screen.base&+184 
screen.viewport& = screen.base&t44 
screen.rastport& = screen.base&+84 
screen.weite% = PEEKW(screen.bitmap&) 
screen.hoehe% = PEEKW(screen.bitmap&+2) 
screen.groesse& = screen.weite%*screen.hoehe% 
screen.tiefe% = PEEK(screen.bitmap&+5) 
screen.modus% = PEEKW(screen.viewport&+32) 


ı* SCREEN hat schon 6 BitPlanes? 
IF screen.tiefe%>5 THEN screen.tiefe%=2"8 


ı* die fehlenden Bitplanes einbauen 
FOR loop1% = screen.tiefe%+1 TO 6 
plane&(1loop1%) = AllocMem&(screen.groesse& ‚memory.option&) 
IF plane&(loop1%) = 0 THEN 
FOR loop2% = screen.tiefe%+1 TO loop1%-1 
CALL FreeMem(plane&(loop2%),screen.groesse&) 
NEXT loop2% 
ERROR 7 
END IF 
POKEL screen.bitmap&+4+4*loop1%, plane&(loop1%) 
NEXT loop1% 


POKE screen.bitmap&+5,6 


ı*® HAM einschalten 
POKEW screen. viewport&+32,(screen.modus% OR 2°11) 
CALL RemakeDisplay 

END SUB 


SUB HAMaus STATIC 
SHARED screen.modus% 
SHARED screen.viewport& 


ı* HalfBrite-Flag zuruecksetzen 
POKEW screen. viewport&+32,screen.modus% 
CALL RemakeDisplay 

END SUB 


Sobald Sıe das Programm starten, sehen Sie ein Farbfeld. In ihm 
befindet sich eine Auswahl von 256 Farben. Diese Farben wer- 


=== Der Viewpat Fr 225 


den lediglich aus Rot und Blau zusammengesetzt. In der linken 
oberen Ecke ist Dunkellila, in der rechten unteren Ecke Hell- 
Lila. Entsprechend findet sich Hellrot links unten, Hellblau 
rechts oben. 


Nun wird diesen Farben gleichmäßig und langsam Grün beige- 
mischt. Insgesamt werden also alle 4096 Farben des Amiga dar- 
gestellt. 


Diese Farbenvielfalt ist beeindruckend. Leider ist ihre Program- 
mierung nicht ganz leicht. Auf den ersten Blick erscheint sie je- 
denfalls kompliziert, was sie im Grunde gar nicht ist. Sehen wir 
uns die Sache einmal näher an: 


Zunächst unterscheiden wir zwischen Echtfarben und HAM- 
Farben. Als Echtfarben bezeichnen wir die Farben 0 - 15. Sie 
entsprechen genau den Farbregistern 0 - 15. Diese Farben sınd 
unveränderlich und lassen sich nur durch einen PALETTE-Be- 
fehl verändern. Anders ist das mit den HAM-Farben. Dies sind 
die Farben 16 - 63. Die HAM-Farben werden immer durch ihre 
Nachbarfarbe zur Linken beeinflußt. Eine HAM-Farbe nimmt 
die Farbe ihres Nachbarn an und verändert die Rot-, Grün- 
oder Blau-Komponente dieser Farbe. Welche der drei Kompo- 
nenten verändert wird, hängt von der HAM-Farbe ab: 


Farbe 0 - 15 Echtfarbe 

Farbe 16+0 - 16+15 HAM-Typ1 
Farbe 32+0 - 32+15 HAM-Typ 2 
Farbe 48+40 - 48+15 HAM-Typ 3 


HAM-Farbe des Typs I übernimmt die Nachbarfarbe und ver- 
ändert die Blau-Komponente dieser Farbe. Die Blau-Kompo- 
nente der HAM-Farbe entspricht dem Wert hinter der 16. Die 
HAM-Farbe 16+12=28 übernimmt also die Nachbarfarbe und 
benutzt als Blau-Wert den Wert 12. 


HAM-Farbe des Typs 2 übernimmt die Nachbarfarbe und ver- 
ändert die Rot-Komponente. Die HAM-Farbe 32+8=40 über- 
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nımmt also die Nachbarfarbe und benutzt den Wert 8 in der 
Rot-Komponente. 


HAM-Farbe des Typs 3 tut dasselbe wie die anderen beiden 
Typen, manipuliert jedoch die Grün-Komponente. 


In unserem Programmbeispiel ziehen wir zunächst einen 
schwarzen Rahmen. Rot, Grün und Blau sind also =0. Direkt 
rechts vom Rahmen wird nun eine HAM-Farbe des Typs 2 ge- 
zeichnet. Sie überprüft die Farbe zur Linken, den schwarzen 
Rahmen also, und übernimmt seine Farbe. Rot, Grün und Blau 
sind also Null. Das Blau-Feld wird jedoch von der HAM-Farbe 
selbst bestimmt. Der Blau-Wert steigt in einer Schleife pro 
Bildschirmzeile an. Direkt rechts von dieser HAM-Farbe werden 
nun sechzehn HAM-Farben des Typs 1 gezeichnet, wobei der 
Rot-Wert jeweils um eins zunimmt. 


Es entsteht so ein Farbmuster, dessen Rot-Intensität nach rechts 
hin zunimmt, dessen Blau-Intensität nach unten hin größer wird. 
Nun wird die Farbe des Rahmens verändert: Der ehemals 
schwarze Rahmen wird mittels PALETTE immer grüner. Der 
Grün-Wert des Rahmens wird dabei sofort von den HAM-Far- 
ben unverändert übernommen: Die gesamte Farbgrafik wird also 
von immer intensiverem Grün durchflutet. 


Wieder das Gegenbeispiel in GFA programmiert: kürzer und 
übersichtlicher, wie das Beispiel zeigt: 


'hold_and modify modus 
OPENS 1,0,0,320,256,6,2048 
OPENW 0,0,0,320,256,0,0 
FOR rot=0 TO 15 
FOR gruen=0 TO 15 
FOR blau=0 TO 15 
x=gruen"20 
y=rot+blau*16 
COLOR rot+48 
LINE x,y,x+18,y 
INC x 
COLOR gruen+32 
LINE x,y,x+18,y 
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INC x 
COLOR blau+16 
LINE x,y,x+138,y 
NEXT blau 
NEXT gruen 
NEXT rot 


WHILE INKEY$="" 


WEND 
CLOSES 1 


4.3 Der Viewport im System 
Unser Bild vom System des Amiga ist nun ganz entschieden 
klarer geworden. Zwei Komponenten, die Bitmap und der 


Viewport, sollten Ihnen nun recht vertraut sein. Beide lassen sich 
wie immer zeichnerisch darstellen: 


Bitmap 


übrige Biplanes (max. 6) 


Bitplane #2 


Bitplane #1 
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nächster 
Viewport 


Colormap Rasinfo 


Viewport 


Nun diese Komponenten im Systemzusammenhang: 


E] 
# 


Fenster 


Bitmap ar 


Bitpianes Layer 
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Langsam wird die Angelegenheit verständlich: Der Viewport ist 
die elementarste Stufe eines Displays. Intuition verwaltet den 
Viewport mit Hilfe des Screens. Sowohl der Screen als auch das 
Fenster zeichnen über einen privaten Rastport in ein gemeinsa- 
mes Video-RAM: die Bitplanes. 


Aber noch immer nicht sind die Komponenten Layers, Colormap 
und RaslInfo geklärt. 


Bevor wir uns an die weitere Erforschung des Grafiksystems 
machen, müssen wir einen für Sie unter Umständen nicht sofort 
nachvollziehbaren Schritt machen. Es gibt nämlich eine weitere 
Datenstruktur, auf die bisher kein einziger Zeiger verwies. 
Praktisch aus dem Nichts taucht jetzt der "View" auf. 


4.4 Der View: Das Grafik-Stammhirn 


Es ist gar kein Wunder, daß die Adresse des Views - oder bloß 
sein Name - noch nirgends aufgetaucht ist. Der View ıst die 
Kontaktstelle zwischen Grafik-Software und Grafik-Hardware 
Ihres Amigas. Von dort geht alles los. Wir haben also am 
falschen Ende angefangen, als wir das Fenster einer Unter- 
suchung unterzogen. Die Adresse des Views läßt sich durch 
Aufruf einer Intuition-Funktion ermitteln. Sie heißt "View- 
Address": 


DECLARE FUNCTION ViewAddress& LIBRARY 
LIBRARY "intuition.Library" 


view&=ViewAddress& 
bzw. in GFA: 


view%=ViewAddress 


Als kleine Anmerkung: Die Intuition-Routine "ViewPortAddress" 
liefert die Adresse des Viewports, in dem sich Ihr aktuelles Aus- 
gabefenster befindet: 
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DECLARE FUNCTION ViewPortAddress& LIBRARY 
LIBRARY "intuition.Library" 


vp&=ViewPortAddress&(WINDOW(7)) 
Hier die View-Datenstruktur: 


Datenstruktur "View"/graphics/18 Bytes 


Offset Typ Bezeichnung 

+ 000 Long Zeiger auf ersten Viewport 
+ 004 Long LongFrame Copper-Liste 

+ 008 Long ShortFrame Copper-Liste 


+ 012 Word DyOffset 
+ 014 Word DxOffset 
+ 016 Word Modi 


So unscheinbar diese Datenstruktur sein mag: Das gesamte Dis- 
play (einschließlich aller Screens) hängt von ihr ab! Zunächst die 
Erläuterungen der Datenfelder: 


Offset 0: Nächster Viewport 


Hier findet sich die Adresse auf die erste Viewport-Struktur des 
Displays. Von dort findet sich dann die Adresse zu weiteren 
Viewports, falls es weitere gibt. 


Offset 4 und 8: Copper-Listen 


Schon einmal hatten wir es mit Copper-Listen zu tun. Das war 
innerhalb des Viewports. Während die Copper-Listen des View- 
ports lediglich für die Zeichenregion des Viewports zuständig 
waren, verwalten diese Copper-Listen das gesamte Display, also 
alle Viewports. Ein normales Display benötigt lediglich die 
LongFrame-Liste. Nur bei Interlace ist die zweite Copper-Liste 
nötig. 
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Die restlichen Felder entsprechen in ihrer Bedeutung ganz genau 
den gleichnamigen Feldern des Viewports. Sie sind in Kapitel 4 
beschrieben. 


Mit dem View kann unser Bild vom Grafiksystem nun mit den 


wichtigsten Komponenten ausgerüstet werden. Die Verbindung 
zwischen Hardware und Intuition ist hergestellt: 


| 
2 Fenster 


a 


Copper Instruction Lists 


Hardware 





I 
I 
Co pper Übrige Special 
Purpose Chips 
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Bevor wir im Grafiksystem weiterarbeiten, werden wir unser 
Modell dieses Systems überprüfen. Wir sind nun weit genug 
fortgeschritten, ein eigenes Display zu erzeugen. Dazu sind ei- 
nige Funktionen der Grafik-Bibliothek nötig: 
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InitView() 

InitV Port() 
GetColorMap() 
InıtBitMap() 
AllocRaster() 
LoadRGBA4() 
MakeVPort() 
MrgCop() 
LoadView() 
FreeRaster() 
FreeColorMap() 
FreeV PortCopLists() 
FreeCprLbist() 


Wir werden in dem folgenden Programm alle Schritte durch- 
exerzieren, die zur Schaffung eines einfachen Displays mit ei- 
nem Viewport notwendig sind. Betrachten Sie dies als eine 
Kontrolle, daß unser Modell korrekt ist, sowie als Übung im 
Umgang mit dem Copper. Das nächstfolgende Kapitel wird sich 
nämlich eingehend mit seiner Programmierung beschäftigen. 


Hier zunächst das Programm: 


HEHE HEHHHHHHEHHHHEHHHEHEER 
4 

ı# Programm: Grafik Primitiv-Display 

'# Datum: 1.1.87 


ı# Autor: tob 
ı# Version: 1.0 
4 


EEE EERECHORERHOHEHÜHHOHHEREEHERER 


Demonstriert das Entstehen eines Grafik-Displays auf 
dem Amiga mit Hilfe der "Graphic Primitives", den 
Grundbefehlen der Grafik-Bibliothek. Es wird ein HiRes 
(High Resolution) Screen mit einer Bitplane erzeugt 
(Tiefe=1), in den der Inhalt der ersten Bitplane dieses 
Screens kopiert wird. 


PRINT "Suche die .bmap-Dateien..." 


'GRAPHICS-Bibliothek 
DECLARE FUNCTION AllocRaster& LIBRARY 
DECLARE FUNCTION GetColorMap& LIBRARY 
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'FreeRaster() 
‘FreeColorMap( ) 
'FreeVPortCopLists() 
'FreeCprList() 
!InitView() 
!InitVPort() 
!InitBitMap() 
!LoadRGB4() 
ıMakeVPort() 
'MrgCop() 
"LoadVien() 


'!EXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 
ıFreeMem( ) 


'INTUITION-Bibliothek 
DECLARE FUNCTION ViewAddress& LIBRARY 


LIBRARY "exec.Library" 
LIBRARY "graphics.lLibrary" 
LIBRARY "intuition. Library" 


init: ı* Screen-Parameter definieren 
weite‘ = 640 
hoehe% = 200 
tiefe% = 1 
o.bitplanei& = PEEKL(PEEKL(WINDOW(8)+4)+B) 


ı%* Zeiger auf unseren eigenen View retten, damit wir auch 


ı* mal wieder zurueck koennen 
oldview& = ViewAddress& 


ı* Speicherplatz fuer benoetigte Strukturen reservieren 


'* View - das Stammhirn des Displays 
view& = 18 

GetMemory view& 

ı* ViewPort - unser Screen in spe 
viewport& = 40 

GetMemory viewport& 

ı* BitMap - Verwalter der BitPlanes 
bitmap& = 40 

GetMemory bitmap& 

ı#* RasInfo - Informationen fuer den ViewPort 
RasInfo& = 12 

GetMemory RasInfo& 


ı* View und ViewPort gebrauchsfertig machen 
CALL InitView(view&) 
CALL InitVPort(viewport&) 


I* Hires 
hires& = &H8000 
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POKEW viewport&+32,hires& 


ı* ViewPort in View einhaengen 
POKEL view&,viewport& 


'* Farbtabelle schaffen 
colorMap& = GetColorMap&(2) 
IF colorMap& = 0 THEN ERROR 7 


ı* ViewPort mit unseren Parametern bestuecken 
POKEW viewport&+24 ,weite% 
POKEW viewport&+26,hoehe% 


ı* RasIinfo in ViewPort einhaengen 
POKEL viewport&+36,RasInfo& 


ı* Farbtabelle in den ViewPort einhaengen 
POKEL viewport&+4,colorMap& 


ı* BitMap Struktur mit unseren Parametern fuellen 
CALL InitBitMap(bitmap&,tiefe%,weite%,hoehe%) 


ı* eine BitPlane besorgen 
plane = AllocRaster&(weite%,hoehe%) 
IF plane& = O0 THEN ERROR 7 


'* BitPlane in BitMap einhaengen 
POKEL bitmap&+8, plane& 


ı* BitMap in RasInfo einhaengen 
POKEL RasInfo&+4,bitmap& 


ı* Farben definieren 


rot$ = CHR$SCIS)J+CHR$CO) 
schwarz$ = CHR$CO)J+CHR$CO) 
colortable$ = rot$+schwarz$ 


ı* Farben in Farbtabelle laden 
CALL LoadRGB4(viewport&,SADD(colortable$),2) 


'* Copper Instruction List konstruieren 
CALL MakeVPort(view&,viewport&) 
CALL MrgCop(view&) 


'* Neues Display in den Copper laden 
CALL LoadView(view&) 


ı* Mit dem Display spielen 
BEEP 
size& = weite%*hoeheX%/8 


FOR loop& = 0 TO size&-1 
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POKE plane&+loop&,PEEK(o.bitplane1i&+loop&) 
NEXT Loop& 
BEEP 


ı* Unsere alten Copperlisten wieder zurueckladen 
CALL LoadView(oldview&) 


ı* Aufraeumen: Speicher fuer BitPlane zurueckgeben 
CALL FreeRaster(plane& weite%,hoehe%) 

ı* Farbtabelle freigeben 

CALL FreeColorMap(colorMap&) 

ı* Zwischenlisten des ViewPorts freigeben 
CALL FreeVPortCopLists(viewport&) 

'* Copper Instruction List freigeben 
copperlist& = PEEKL(view&+4) 

CALL FreeCprList(copperlist&) 

ı* Struktur-Speicher freigeben 
FreeMemory view 

FreeMemory viewport& 

FreeMemory RasiInfo& 

FreeMemory bitmap& 


ı* und das war's 


LIBRARY CLOSE 
END 


SUB GetMemory(size&) STATIC 


opt& = 2°0+2°1+2°16 

RealSize& = size&+t4 

size& = AllocMem&(RealSize&,opt&) 
IF size& = 0 THEN ERROR 255 


POKEL size&,RealSize& 
size& = size&t4 
END SUB 


SUB FreeMemory(add&) STATIC 
a = add&-4 
RealSize& = PEEKL(add&) 
CALL FreeMem(add&,RealSize&) 
END SUB 


Dokumentation: 


Zunächst müssen wir uns überlegen, was wir erzeugen wollen. 
Ein Display soll’s sein. Aber wie breit und wie hoch? Wir wäh- 
len einen Hi-Res-Bildschirm mit einer Standard-Ausdehung von 
640*200 Pixel, eine Bitplane tief. 
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Um nach unseren Manipulationen wieder zurück zu unserem ei- 
genen Display finden zu können, muß die Adresse unserer eige- 
nen View-Struktur in einer Variablen gerettet werden. Die In- 
tuition-Funktion ViewAddress liefert uns den benötigten Zeiger. 


Jetzt geht’s los: Für die Erzeugung unseres Displays benötigen 
wir diese Strukturen: 


View (18 Bytes) 
Viewport (40 Bytes) 
Bitmap (40 Bytes) 
RasInfo (12 Bytes) 


Die View-Struktur bildet das Stammhirn unseres zukünftigen 
Displays. Es gibt nur einen einzigen aktiven View. Von diesem 
View zweigen beliebig viele Viewports ab. 


View und Viewport müssen gebrauchsfertig gemacht werden. 
InitView füllt die View-Struktur mit den Standardwerten: Er 
wird automatisch darauf eingestellt, ca. 1,25 cm vom Rand des 
Monitors zu erscheinen. InitVPort tut dasselbe mit dem View- 
port: Er wird standardmäßig auf LoRes geschaltet, der Zeiger 
auf den nächsten Viewport wird auf Null gesetzt, denn es folgen 
keine weiteren Viewports. 


Jetzt muß eine Verbindung zwischen View und Viewport herge- 
stellt werden. Dazu dient das erste Feld der View-Struktur. Dort 
wird die Adresse der ersten (und einzigen) Viewport-Struktur 
hinterlegt. 


Nun muß eine Farbtabelle geschaffen werden, die später die 
Farbwerte unseres Screens aufnehmen wird. Diese Aufgabe erle- 
digt GetColorMap. 


Jetzt werden die Ausdehnungen unseres Viewports in denselben 
geschrieben. Der RasInfo-Block wird in den Viewport einge- 
hängt. 
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Nun muß die Bitmap-Struktur gebrauchsfertig gemacht werden. 
InitBitMap() leistet die gröbste Arbeit. Die Adresse auf unsere 
eine Bitplane müssen wir allerdings selbst in die Bitmap-Struktur 
schreiben. 


Die Adresse der Bitmap wird nun in die RasInfo-Struktur ge- 
schrieben. Die Farben werden mittels LoadRGB4 in den View- 
port geladen. 


Unser Display ist nun gebrauchsfertig, alle nötigen Daten sind 
verstaut. Aus diesen Informationen muß der Amiga nun Instruk- 
tionen für den Grafik-Prozessor erzeugen. Das geschieht schritt- 
weise: Die Funktion MakeVPort bildet aus allen Daten des 
Viewports die entsprechenden Copper-Listen und schreibt die 
Zeiger auf diese Listen in den Viewport. Anschließend integriert 
die Funktion MrgCop die Instruktionen unseres Viewports mit 
denen des übrigen Displays (wir haben nur einen Viewport, also 
was soll’s). 


Die fertige Copper-Liste wird im View gespeichert. Aus den 
Daten für unser Display ist eine Liste mit Copper-Befehlen ge- 
worden. Diese Befehle müssen jetzt nur noch zum Copper 
gesendet werden, und unser neues Display erscheint. Diese Auf- 
gabe erledigt LoadView. Sofort erscheint unser knallrotes Dis- 
play. 


Um zu zeigen, daß dies ein voll funktionsfähiges Display ist, 
wird nun die erste Bitplane des Workbench-Screens in unser 
Display kopiert. Das dauert ein Weilchen. 


Alles hat geklappt, wir wollen wieder zurück. Die Adresse auf 
unseren alten View hatten wir zwischengespeichert, und so be- 
reitet es keine Schwierigkeiten, in unser altes Display zurückzu- 
kehren: LoadView sendet die alten Copper-Listen zum Copper. 


Und nun, obwohl die Demo fast zu Ende ist, kommt noch etwas 
ganz Wichtiges: das Aufräumen. Das Display hat eine Menge 
Speicher gefressen, den wir natürlich wieder zurückhaben 
wollen. 
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4.5 Copper-Programmierung: Der Coprozessor im Handgepäck 


Gerade hat der Copper unter Beweis gestellt, wie mächtig er ist. 
Das werden wir gleich ausnutzen. Unser nächstes Programmier- 
projekt heißt: Double-Buffering. 


4.5.1 Mit Double-Buffering blitzschnelle Grafik 


Die Zeichengeschwindigkeit des Amiga läßt sich durch den 
Copper nicht beeinflussen, denn der arbeitet ohnehin auf 
Höchsttouren. Sie können aber dem Anwender Ihrer Programme 
glauben machen, Grafiken entstünden blitzschnell. Das Geheim- 
nis heißt: Double-Buffering und funktioniert so: Sie zeigen dem 
Anwender ein Display, in dem sich gar nichts tut. Während der 
nun gelangweilt in dieses Display starrt, baut sich Ihre Grafik in 
einem zweiten, unsichtbaren Display in Ruhe auf. Ist die Grafik 
fertiggestellt, schalten Sie die Displays um, und - blitzartig 
erscheint Ihre Grafik auf dem Bildschirm. 


Das Prinzip ist einfach: Die Zeiger auf die Copper-Listen des 
alten Displays werden aus dem View ausgelesen und gespeichert, 
die Zeiger im View werden gelöscht. Nun wird eine neue 
Bitmap mit neuen Bitplanes eingerichtet - das zweite Display. 
Für dieses Display werden mittels MakeVPort und MrgCop Cop- 
per-Listen generiert. Auch diese Copper-Listen werden gespei- 
chert. Um von einem Display ins andere zu schalten, brauchen 
nun nur die entsprechenden Zeiger in die Viewstruktur ge- 
schrieben und LoadView aufgerufen zu werden. 


Wieder haben wir ein kleines Programmpaket entwickelt. Es be- 
steht aus diesen SUBs: 


MakeDoubleBuffer 
DoubleBufferOn 
DoubleBufferOff 
AbortDoubleBuffer 
transmit 
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Es folgt das Listing: 





'# 

'# Programm: Double Buffered Display 
‘# Datum: 

'# Autor: tob 

'# Version: 1.0 

'# 


I ELILILELIL IT 





! Dieses Programm richtet einen zweiten Screen ein, 
' der als Backup-Buffer fuer diesen Screen arbeitet. 


PRINT "Suche .bmap-Dateien..." 


'IGRAPHICS-Bibliothek 

DECLARE FUNCTION BltBitMap& LIBRARY 
DECLARE FUNCTION AllocRaster& LIBRARY 
'FreeRaster() 

ıMakeVPort() 

'MrgCop() 

!LoadVienw() 

'FreeCprList() 


!EXEC-Bibliothek 

DECLARE FUNCTION AllocMem& LIBRARY 
!FreeMem() 

!CopyMem() 


!INTUITION-Bibliothek 
DECLARE FUNCTION ViewPortAddress& LIBRARY 
DECLARE FUNCTION ViewAddress& LIBRARY 


LIBRARY "intuition. Library" 
LIBRARY "graphics.Library" 
LIBRARY "exec.lLibrary" 


init: CLS 
PRINT "OHNE DOUBLE BUFFERING!" 
FOR t=1 TO 20 
PRINT STRING$(8O, +") 
NEXT t 
FOR t=1 TO 20 
x% = RNDC1)*600 
y% = RNDC1)*150 


r% = RND(C1)*100 
CIRCLE (x%,y%) 0% 
NEXT t 
CLS 
PRINT "UND NUN MIT DOUBLE BUFFERING! I 1" 
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MakeDoubleBuffer 
DoubleBufferOn 
FOR t=1 TO 20 
PRINT STRING$(80,"+") 
NEXT t 
transmit 
LOCATE 1,1 
FOR t=1 TO 20 
x% = RND(1)*600 
y% = RND(1)*150 
r% = RNDC1)*100 
CIRCLE (x%,y%),r% 
NEXT t 
transmit 
LOCATE 5,10 
LINE (38,29)-(442,67),3,b 
PRINT "Auch das geht!!! Gut, nicht? Fast wie UNDO!" 
PRINT TAB(10);"Double Buffering = Backup-Display" 
PRINT TAB(10);'"Dies hier sind zwei separate Screens, die" 
PRINT TABC10);"hin- und hergeschaltet werden! 
FOR loop%=1 TO 15 
Doubl eBufferOn 
FOR t=1 TO 1000:NEXT t 
DoubleBufferoff 
FOR t=1 TO 1000:NEXT t 
NEXT Loop% 
PRINT 
PRINT "LINKE MAUSTASTE DRUECKEN!" 
SLEEP:SLEEP 
AbortDoubleBuffer 
LIBRARY CLOSE 
END 


SUB MakeDoubleBuffer STATIC 
'* Ein zweites Display schaffen 
SHARED ZielBitmap&,rasInfo&,QuellBitMap&, view& 
SHARED bufferx%,buffery%, vp& 
SHARED home1&,home2& , guest1&,guest2& 


view& = ViewAddress& 

vp& = ViewPortAddress&(WINDOW(7)) 
rasInfo& = PEEKL(vp&+36) 

QuellBitMap& = PEEKL(rasInfo&+4) 

opt& = 2°0+2°1+2°16 


ZielBitmap&=AllocMem&(40,opt&) 


ı* BitMaps kopieren 

IF ZielBitmap& = 0 THEN ERROR 7 

ı* ACHTUNG: NUR FUER KICKSTART VERSION 1.2 
'* FUER 1.0 UND 1.1 DIESE ZEILEN VERWENDEN: 


ı% 


ı* FOR loop&=0 to 40 STEP 4 


== Der Viewport ar 41 


ı* POKEL ZielBitMap&+loop&,PEEKL(QuellBitMap&+loop&) 
ı* NEXT loop& 


CALL CopyMem(QuellBitMap&,ZielBitmap&,40) 


ı* Planes besorgen 


bufferx% = PEEKW(QuellBitMap&)*8 
buffery% = PEEKW(QuellBitMap&t2) 
tiefe% = PEEK(Quel lBitMap&+5) 
FOR loop% = 0 TO tiefe%-1 
plane&( loop%) = AllocRaster&(bufferx%,buffery%) 


IF plane&(loop%) = O0 THEN ERROR 7 
POKEL ZielBitmap&+8+loop%*4, plane&(loop%) 
NEXT Loop% 


1% aktives Display in Buffer kopieren 

plc% = BltBitMap&(QuellBitMap&,0,0,ZielBitmap&,0,0,bufferx%, 
buffery%,200,255,0) 

IF plc%<>tiefe% THEN ERROR 17 


'* Original-Copper-List speichern 
home1& = PEEKL(view&+4) 
home2& = PEEKL(view&t+B) 


ı* Zweite Copper List erzeugen 
POKEL view&t+4,0 

POKEL view&+8,0 

POKEL rasInfo&+4,ZielBitmap& 
CALL MakeVPort(view&,vp&) 
CALL MrgCop(vien&) 

CALL LoadView(view&) 

guesti& = PEEKL(view&+4) 
guest2& = PEEKL(view&+B) 


'* Reset 

POKEL rasInfo&+4,QuellBitMap& 
POKEL view&+4,home1& 

POKEL view&+8,home2& 

CALL LoadView(vien&) 


END SUB 


SUB DoubleBufferOn STATIC 
ı* Neue Copper List aktivieren 
SHARED view&,guest1i1&,guest2& 
SHARED rasInfo&,ZielBitmape 
POKEL view&t4,guesti& 
POKEL view&+8,guest2& 
CALL LoadView(view&) 

END SUB 


SUB DoubleBufferoff STATIC 
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ı*% alte Copper List aktivieren 
SHARED view&,home1&,home2& 
SHARED rasInfo&,QuellBitMap& 
POKEL view&+4,homei& 
POKEL view&+8,home2& 
CALL LoadView(view&) 

END SUB 


SUB transmit STATIC 
ı*% altes Display in den neuen Buffer kopieren 
SHARED QuellBitMap&,ZielBitmap&,bufferx%,buffery% 
plc% = BltBitMap&(QuellBitMap&,0,0,ZielBitmap&,0,0,bufferx%, 
buffery%,200,255,0) 
END SUB 


SUB AbortDoubleBuffer STATIC 
SHARED rasInfo&,view&,ZielBitmap& 
SHARED vp&,bufferx%,buffery% 
SHARED home1&,home2&,guest1&,guest2& 


ı%* altes Display und VPort-Lists herstellen 
POKEL view&+4,home1& 

POKEL view&+8,home2& 

CALL MakeVPort(view&,vp&) 

CALL MrgCop(view&) 

CALL LoadView(view&) 


ı*% neue VPort-Copperlisten loeschen 
CALL FreeCprList(guest1&) 


ı%* Zweites Set Copper Listen loeschen 

IF guest2&<>0 THEN CALL FreeCprList(guest2&) 
add& = ZielBitmap&+8 

pl& PEEKL(add&) 


ı* BitPlanes und BitMap loeschen 
WHILE pl&<>0 
CALL FreeRaster(pl&,bufferx%,buffery%) 


add& = add&+4 
pl& = PEEKL(add&) 
WEND 
CALL FreeMem(ZielBitmap&,40) 
END SUB 
Anwendung: 


Sie schalten das Double-Buffer-System mit dem Befehl: 


MakeDoubleBuffer 
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ein. Dadurch wird das zweite, unsichtbare Display geschaffen. 
Sie dürfen diesen Befehl nur ein einziges Mal aufrufen. Soll es 
losgehen mit Double-Buffering, dann benutzen Sie den Befehl: 


DoubleBufferOn 


Dadurch wird das versteckte Display aktiviert. Ihr altes Display, 
in das Sie zeichnen, wird unsichtbar. Sie können nun in Ruhe 
Ihre Grafik erzeugen, denn auf dem Bildschirm ist davon nichts 
zu sehen. Sobald Ihre Grafik fertiggestellt ist, genügt der Auf- 
ruf: 


transmit 


um den Inhalt des alten, unsichtbaren Displays - Ihre Grafik 
also - in das sichtbare Display zu senden. Sie können den trans- 
mit-Befehl beliebig oft gebrauchen. 


Wollen Sie kurzfristig ein ungepuffertes Display, dann genügt 
der Aufruf: 


DoubleBufferoff 


Alle Zeichenbefehle und Prints erscheinen sofort und ungepuf- 
fert. Via "DoubleBufferOn" gelangen Sie wieder zurück ins ge- 
pufferte System. 


Wollen Sie gänzlich raus aus dem System (weil Ihr Programm 
endet oder Sie die langwierigen Zeichnungen hinter sich ge- 
bracht haben), dann verwenden Sie: 


AbortDoubleBuffer 


Dadurch werden alle Speicherbereiche des Puffer-Displays ans 
System zurückgegeben. 
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4.5.2 Eigene Programmierung des Coppers 


Bisher wurden die Copper Instruction Lists, die das Display 
erzeugen, vom Amiga selbst anhand der von uns gelieferten Da- 
ten erzeugt. Daneben gibt es aber die Möglichkeit, den Copper 
wirklich selbst zu programmieren. 


Bevor wir das tun können, muß die Funktionsweise des Coppers 
erläutert werden: Der Copper lebt in enger Freundschaft zum 
Elektronenstrahl des Displays. Dieser Elektronenstrahl fegt alle 
1/50 Sekunde von der linken oberen Display-Ecke bis zur rech- 
ten unteren und zeichnet dabei das sichtbare Bild. 


Der Copper ist in der Lage, auf eine bestimmte Position dieses 
Elektronenstrahl$ zu warten. Das bewerkstelligt der WAIT-Be- 
fehl des Prozessors. Er verlangt eine Y- und eine X-Koordinate 
und veranlaßt den Copper, solange zu warten, bis der Elektro- 
nenstrahl diese Koordinate passiert hat. Erst danach werden 
weitere Instruktionen verarbeitet. 


Durch den Befehl MOVE ist der Copper weiterhin in der Lage, 
die Hardware-Register der Special Purpose Chips zu adressieren. 
Sie finden die Belegung der Hardware-Register im Anhang. Der 
MOVE-Befehl verlangt den Offset des Hardware-Registers und 
den Wert, der in dieses Register geschrieben werden soll. 


Die SKIP-Anweisung, der dritte und letzte Befehl des Coppers, 
wird dazu benutzt, bestimmte Anweisungen einer Copper-Liste 
zu überspringen. 


Nun wäre es ein langwieriges Unterfangen, die Copper-Listen 
für ein gesamtes Display selbst zu schreiben. Das ist auch völlig 
unnötig, denn diese Arbeit erledigt die Funktion MakeVPort ja 
bereits ohne Probleme. Möchte man eigene Copper-Instruktionen 
in die Copper-Listen des Gesamt-Displays einbinden, geht man 
einen anderen Weg: In der Struktur eines jeden Viewports befin- 
det sich der Zeiger auf eine sogenannte "User Copper List". 
Dieser Zeiger ist normalerweise =0. Möchte man eigene 
Instruktionen ins Display integrieren, dann erzeugt man eine 
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eigenständige Copper-Liste mit den gewünschten Befehlen. 
Anschließend hinterlegt man die Anfangsadresse dieser Liste als 
Zeiger im Viewport im Feld "User Copper List". Nun geht man 
wie gewohnt vor: MakeVPort bindet die User Liste in die 
Display Liste des Viewports &in, MrgCop bindet diese Liste in 
die Gesamtliste im View, und LoadView schließlich aktiviert die 
manipulierten Copper-Listen. 


Jetzt stellt sich allerdings die Frage, wie die eigene Copper-Liste 
erzeugt wird. Dazu finden Sie im nächsten Programm vier SUBs: 


InitCop 
ActiCop 
WaitC 
MoveC 


Zunächst muß eine Datenstruktur namens "UCopList" erzeugt 
werden. Diese Struktur benötigt einen freien Speicher von 12 
Bytes. Diese Aufgabe erledigt "InitCop". 


Nun läßt sich die User-Liste mit den Befehlen MoveC und 
WaitC programmieren (Skip ist für unsere Anwendungen unin- 
teressant). 


Der Aufruf des Wait-Befehls sieht so aus: 


Waitl y%,x% 


Es wird erst die Y-Bildschirmkoordinate verlangt, auf die der 
Copper warten soll. WaitC verlangt zuerst die Y-Koordinate, 
weil es dadurch MrgCop leichter fällt, die Inhalte der verschie- 
denen Copper-Listen der Reihe nach zusammenzufassen. 


MoveC kann einen beliebigen 16-Bit-Wert in eines der Hard- 
ware-Register schreiben. Wir verwenden in diesem Kapitel nur 
eine sehr geringe Auswahl dieser Register. Eine vollständige 
Registerbeschreibung ist aber im Anhang dieses Buches wieder- 
gegeben. Hier der Aufruf: 
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MoveC register%, wert% 


register%: Offset des gewünschten Hardware-Registers 
wert%: 16-Bit-Wert Ä 


Hier eine Auswahl der für uns wichtigsten Hardware-Register: 


Register Bedeutung 

384 Farbregister 0 (Hintergrundfarbe) 
386 Farbregister 1 (Zeichenfarbe) 

388 Farbregister 2 

(...) 

444 Farbregister 30 

446 Farbregister 31 


Kommen wir nun wieder zu unserer User Copper List. Nach 
dem Aufruf "InitCop" können Sie beliebig viele MoveC’s und 
WaitC’s einbauen. Sie müssen jedoch darauf achten, daß Ihre 
WaitC’s den Bildschirmkoordinaten entsprechend aufgerufen 
werden. Die obere linke Ecke des Displays ist Koodinate (0,0). 
Von dort wandert der Elektronenstrahl los. Ihre WaitC’s müssen 
nun nach den Koordinaten, auf die sie warten sollen, nach stei- 
genden X- und Y-Werten geordnet werden. 


Ist Ihre User Copper List fertiggestellt, dann wird mittels Acti- 
Cop diese Liste in das bestehende Display eingebunden: Ihre 
Anweisungen werden vom Copper ausgeführt. 


In unserem Beispielprogramm haben wir einen eigenen Screen 
geöffnet. Um den Speicherplatz, den unsere Copper Instructions 
belegt haben (inkl. der von uns reservierten User Liste) ans 
System zurückzugeben, genügt es, den Intuition Screen zu 
schließen. Intuition erledigt dann diese Aufgabe automatisch. 
Versuchen Sie daher nicht, User Instructions in den Workbench 
Screen einzubauen; zwar würden die Instructions ordnungsgemäß 
ausgeführt, Sie hätten aber keine Möglichkeit, das Normaldisplay 
wiederherzustellen und den belegten Speicher freizugeben. 


Das folgende Programm zeigt Ihnen, wie eine einfache Program- 
mierung des Coppers aussehen könnte: 


= Der vieewpon Fe ze 2A 


HHHHHHEIHHEHHEIHEIHETHEIHIHEHHHEHEHEEHEEHEHHE 
'# 

ı# Programm: Copper Raster-Interrupt I 

'# Datum: 15.12.87 

ı# Autor: tob 

ı# Version: 1.0 

'# 

EEE EHHERHHHEEERHHHEREHHEREH 


ı Demonstriert die Programmierung des Amiga Grafik Co- 
ı prozessors (Copper) von AmigaBASIC. 


PRINT "Suche die .bmap-Dateien..." 


!INTUITION-Bibliothek 

DECLARE FUNCTION ViewAddress& LIBRARY 
DECLARE FUNCTION ViewPortAddress& LIBRARY 
'RethinkDisplay() 


IEXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 
ıFreeMem() 


'GRAPHICS-Bibliothek 
ıCWait() 
ıCMove() 
ıCBump( ) 


LIBRARY "intuition. Library" 
LIBRARY "graphics.Library" 
LIBRARY "exec.library" 


pre: CLS 
SCREEN 1,640,255,2,2 
WINDOW 2,"COPPER!",(0,0)-(630,200),16, 1 


PRINT "Raster-Interrupt durch Copper-Programmierung: Der 
geteilte Bildschirm!" 


init: farbregister%=384 
rot‘ = 15 '0...15 
gruen‘ = 4 '0...15 
blau% = 4 '0...15 
farbwert% = rotX*2"8+gruenk*2"4+blau% 
yKoordinate% = 128 
xKoordinate% = 20 
main: InitCop 


waitC yKoordinate%,xKoordinate% 
moveC farbregister%, farbwert% 
ActiCop 
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PRINT "Eine Taste druecken!! 
WHILE INKEY$=1:WEND 


WINDOW CLOSE 2 
SCREEN CLOSE 1 


LIBRARY CLOSE 
END 


SUB InitCop STATIC 
SHARED UCopList& 


opt& 


= 2°0+2°1+2°16 


UCopList& = AllocMem&(12,opt&) 
IF UCopList& = O0 THEN ERROR 7 


END SUB 


SUB ActiCop STATIC 
SHARED UCopList& 
waitC 10000,256 
viewport& = ViewPortAddress&(WINDOW(7)) 
POKEL viewport&+20,UCopList& 
CALL RethinkDisplay 


END SUB 


SUB waitC(y%,x%) STATIC 
SHARED UCopList& 
CALL CWait(UCopList&,y%,Xx%) 
CALL CBump(UCopList&) 


END SUB 


SUB moveC(reg% ,wert%) STATIC 
SHARED UCopList& 
CALL CMove(UCopList&,reg%,wert%) 
CALL CBump(UCopList&) 


END SUB 


Programm-Beschreibung der SUBs: 


InitCop: 


WaitC: 


Die Exec-Funktion AllocMem beschafft einen 12 
Bytes umfassenden Speicherbereich, der die UCop- 
List-Datenstruktur aufnehmen wird. 


Eine Wait-Instruktion wird in die User-Liste gefügt. 
Dazu wird der Grafik-Bibliotheks-Befehl CWait 
aufgerufen. CBump erhöht den internen Zeiger 
innerhalb der User-Liste. 
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MoveC: Die Funktion CMove der Grafik-Bibliothek wird 
aufgerufen. Sie fügt eine Move-Instruktion in die 
User-Liste ein. CBump() erhöht wiederum den Zeiger. 


ActiCop: Ein letztes WaitC wird an die Liste gehängt. Dieses 
Wait wartet auf eine Bildschirmposition, die der 
Elektronenstrahl niemals erreichen kann. Diese An- 
weisung schließt die Liste ab und entspricht dem 
Macro CEND. 


Anschließend wird die Adresse unserer User-Liste an die ent- 
sprechende Stelle im Viewport des gewünschten Screens ge- 
schrieben. Die Intuition-Funktion "RethinkDisplay" generiert die 
neuen Copper-Listen für den View und sendet sie zum Copper. 
Das neue Display erscheint. 


Zum Schluß wird der Screen geschlossen. Dadurch werden die 
Copper-Listen aus der Haupt-Copper-Liste im View entfernt, 
aller belegte Speicher wird ans System zurückgegeben. 


4.5.3 Mit Copper-Programmierung: 512 Farben gleichzeitig 


Das Prinzip der Copper-Programmierung ist nun klar geworden. 
Das nächste Programm soll Ihnen eine kleine Kostprobe dieser 
machtvollen Technik zeigen. Unser Plan: Wir verändern mit ei- 
nem WaitC für jede Bildschirmzeile die Hintergrundfarbe. 
Gleichzeitig wird in jeder Bildschirmzeile eine andere Zeichen- 
farbe aktiviert. Bei 256 Bildschirmzeilen pro Display kommen 
wir auf insgesamt 512 Farben, die gleichzeitig dargestellt wer- 
den. Die Farben 2 und 3 bleiben normal einfarbig. Achtung: 
Verwenden Sie nie mehr als ca. 1600 Copper-Instructions in ei- 
ner Liste! 


EHER 
'# 

‘# Programm: Copper Raster-Interrupt II 
'# Datum: 11.4.87 
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ı# Autor: tob 
ı# Version: 1.0 
4 





.....: 


ı Copper-Programmierung erzeugt bei nur 2 Bitplanes 
ı anstatt der gewoehnlichen 4 Farben hier 512 verschie- 
ı dene Farbtoene im Hintergrund und als Zeichenfarbe 


PRINT "Suche die .bmap-Dateien..." 


ıINTUITION-Bibliothek 

DECLARE FUNCTION ViewAddress& LIBRARY 
DECLARE FUNCTION ViewPortAddress& LIBRARY 
!RethinkDisplay() 


'EXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 
ıFreeMem( ) 


ıIGRAPHICS-Bibliothek 
'CWait() 
ıCMove() 
'CBump( ) 


LIBRARY "intuition.Library" 
LIBRARY "graphics.Llibrary" 
LIBRARY "exec.Library" 


pre: CLS 
SCREEN 1,640,255,2,2 
WINDOW 2,"COPPER!",(0,0)-(630,200),16, 1 


PRINT "Individuelle Copperprogrammierung macht es moeglich." 
PRINT "256 Hintergrundfarben! " 
PRINT "Bitte etwas Geduld - Berechne Instruction Lists." 


init: farbregister1% = 384 
farbregister2% = 386 
xKoordinate% = 20 
maxY% = 256 

main: InitCop. 


FOR lLoop%=1 TO maxY% 
waitC loop%,xKoordinate% 
moveC farbregister1%, loop% 
moveC farbregister2%,4096-loop% 
NEXT loop% 
ActiCop 


ı* Text ausgeben fuer den lieben Effekt 
LOCATE 5,1 
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ende: 


PRINT "Die Hintergrundfarbe besteht aus 256 Einzel -" 
PRINT "Farben! Aber auch die Schriftfarbe ist nicht" 
PRINT "mehr eintoenig: 256 Gelbwerte, pro Raster-" 
PRINT "zeile einer. Hier koennte statt dieser niveau-" 
PRINT "losen Warteschleife ein Wahnsinnsprogramm!"" 
PRINT "die Arbeit aufnehmen... !" 

LOCATE 15,1 

PRINT "Bitte druecken Sie eine Taste, wenn!" 

PRINT "Sie ferti gelesen haben." 

WHILE INKEY$S=!1" 

WEND 


LOCATE 11,1 
PRINT "Tut es aber nicht." 


FOR t=1 TO 2000:NEXT t 
CLS 
PRINT "Es folgt eine Grafik-Demo!" 


LINE (0,100)-(630,190),2,bf 
FOR loop%=0 TO 630 STEP 30 
LINE (loop%*1.5,190)-(loop%, 100), 1 
NEXT loop% 
FOR loop%=100 TO 190 STEP 20 
LINE (0, loop%)-(630,loop%), 1 
NEXT loop% 


CIRCLE (300,80),120,3 
PAINT (300,80),3,3 


CIRCLE (300,80),100,1 
PAINT (300,80),1,1 


CIRCLE (300,146),180,3,,,1/15 
PAINT (300,146),1,3 


LOCATE 1,1 
PRINT "Taste druecken! "+SPACE$(40) 


WHILE INKEY$="":WEND 
WINDOW CLOSE 2 
SCREEN CLOSE 1 


LIBRARY CLOSE 
END 


SUB InitCop STATIC 


SHARED UCopList& 


= 2°0+2°1+2°16 
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UCopList& = AllocMem&(12,opt&) 
IF UCopList&=0 THEN ERROR 7 
END SUB 


SUB ActiCop STATIC 
SHARED UCopList& 
waitC 10000, 256 
viewport& = ViewPortAddress&(WINDOW(7)) 
POKEL viewport&+20 ,UCopList& 
CALL RethinkDisplay 
END SUB 


SUB waitCl(y%,x%) STATIC 
SHARED UCopList& 
CALL CWait(UCopList&,y%,x%) 
CALL CBump(UCopList&) 

END SUB 


SUB moveC(reg% ,wert%) STATIC 
SHARED UCopList& 
CALL CMove(UCopList&,reg%,wert*%) 
CALL CBump(UCopList&) 

END SUB 


Zunächst erscheint ein Text. Er macht die veränderten Um- 
stände des Grafik-Displays deutlich. Imposant wird es an- 
schließend. Eine sehr simple Grafik erscheint, die aber ob der 
Copper-Programmierung sehr faszinierend wirkt: Sie besteht aus 
mehr als 500 Farben, bei nur zwei Bitplanes. Schlagartig werden 
die Möglichkeiten des Coppers deutlich. Per Tastendruck gelan- 
gen Sie wieder in den Normalmodus zurück. Gleichzeitig verliert 
die Grafik ihre unbeschreibliche Ausstrahlung und entpuppt sich 
als eine Ansammlung von Füllobjekten. 


4.6 Die Layers: Seele der Fenster 


Wir wollen unser Bild des Grafiksystems weiter präzisieren. In 
der Rastport-Struktur (siehe Kapitel 3.6) fand sıch ein Zeiger 
auf sogenannte "Layers". Bei diesen Layers handelt es sich um 
eine eigenständige Systemkomponente des Betriebssystems, die 
durch die Layers-Bibliothek repräsentiert wird. 


Bleibt die Frage, was Layers sind. Schauen Sie einmal ganz ge- 
nau auf Ihren Amiga-Monitor. Was sehen Sie? Nichts? Schalten 
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Sie ihn ein. Und jetzt? Noch immer keine Spur von Layers? Sie 
sehen wahrscheinlich die Layers vor lauter Fenstern nicht: Jedes 
Fenster ist im Grunde nichts weiter als ein Layer. 


Genauso wie ein Screen nichts weiter ist als ein erweiterter 
Viewport, ist ein Window (Fenster) nichts weiter als ein erwei- 
tertes Layer. Die Layers erledigen den Großteil der Arbeit, die 
bei Windowing entsteht. Wenn ein Computer mit Fenstern ar- 
beitet, entsteht immer ein Problem: Alles, was sich Ihnen auf 
dem Bildschirm präsentiert, ist in den Bitplanes der Bitmap ge- 
speichert. Dazu zählt der Screen-Hintergrund sowie die Fenster. 
Im Idealfall. Normalerweise enthält das Display den Screen- 
Hintergrund sowie zahlreiche Bruchstücke verschiedener Fenster. 
Fenster überlappen sich, werden gänzlich von anderen verdeckt 
oder können sich frei entfalten. Sobald ein Fenster ein anderes 
überlappt, muß diese Tatsache registriert werden, denn an der 
überlappten Stelle teilen sich zwei Fensterteile dieselbe Bitmap. 
Die Layers sorgen dafür, daß der Teil des verdeckten Fensters 
an anderer Stelle im Speicher gespeichert wird. Erst, wenn das 
verdeckte Fenster (oder ein Teil davon) wieder ans Tageslicht 
kommt, kopiert das Layer den ehemals verdeckten Teil zurück 
ın die Screen-Bitmap. 


Bevor wir uns weiter mit dieser Theorie beschäftigen, fangen 
wir für Sie ein Layer ein und zeigen es Ihnen! Diese Aufgabe 
erledigt das folgende kleine Programm: 


I HEEEEHHHIHIHHHIHTHIHTETHTHIHTHFTHIHIHIHIHIHIHIHIFIER 
'# 

‘# Programm: Ein Layer 

‘# Datum: 5.1.87 


ı# Autor: tob 
ı# Version: 1.0 
'4 


I EHEHEREREHHEEHUHREHUHNERHER 


' Ein einfaches Layer - die Grundlage eines jeden 
ı Fensters - wird erzeugt. 


PRINT "Suche die .bmap-Dateien..." 


"LAYERS-Bibliothek 
DECLARE FUNCTION CreateUpFrontLayer& LIBRARY 
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'DeleteLayer() 
'MoveLayer() 


'IGRAPHICS-Bibliothek 
'Text() 
'Move() 


LIBRARY "graphics.Library"" 
LIBRARY "layers.Library" 


initPars: CLS 


scrAdd& = PEEKL(WINDOW(7)+46) 
screenLayerInfo& = scrAdd&+224 
screenBi tMap& = scrAdd&+184 

x0% = 10 

y0% = 20 

x1% = 400 

y1% = 80 

yp% = 1 


damitMans: "auch sehen kann 
CLS 
LINE (1,1)-(600,180),2,bf 


LayerHer: layer& = CreateUpFrontLayer&(screenLayerInfo&, screen 
BitMap&,x0%,y0%,x1%,y1%,typ%,0) 


wasDamitTun: layerRast& = PEEKL(layer&+12) 
| text$ = "Dies ist das Herz eines Fensters: Ein Layer!" 
CALL Move(layerRast&,3,8) 
CALL text(layerRast&,SADD(text$) ,LENCtext$)) 


bewegen: axX = 2 
dy% = 1 
FOR Loop1%=1 TO 30 
CALL MoveLayer(screenLayerInfo&,layer&,dx%,dy%) 
NEXT loop1% 


warten: LOCATE 1,1 j 
PRINT "Beliebige Taste = ende!" 
WHILE ins="" 
Iin$=INKEY$ 
WEND 


wegDamit: CALL DeleteLayer(screenLayerInfo&,layer&) 


dasWars: LIBRARY CLOSE 
END 


Sehen Sıe? Unser kleines Layer benimmt sich bereits fast wie 
ein "großes" Fenster: Wenn Sie mit der Maus auf das Layer fah- 
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ren und die linke Maustaste drücken, wird das Layer aktiviert, 
Ihr eigenes Fenster riffelt sich. Zu einem richtigen Fenster fehlt 
unserem Layer nur der Rahmen, die Gadgets und ein Menü. 


Das Layer verschwindet restlos, sobald Sie eine beliebige Taste 
drücken. | 


Zur Realisierung des obigen Programms verwendeten wir Funk- 
tionen der Grafik- und der Layers-Bibliothek, wobei die zweite 
zweifelsohne die wichtigere ıst.e. Die Layers-Funktion 
"CreateUpfrontLayer" generiert unser Layer. Sie fordert acht 
Argumente und liefert die Anfangsadresse des Layers-Daten- 
blocks an das BASIC-Programm zurück: 


layer&=CreateUpfrontLayer&(layerInfo&,bitmap&,x0%,y0%,x1%,y1%,typ% 


‚sbitmap&) 

layer&: Die Adresse unseres neuen Layerdatenblocks 

layerInfo&: Die Adresse der Struktur LayerInfo 

bitmap&: Die Adresse der Bitmap, in die das neue Layer projiziert 
werden soll 

x0%,y0%: Koordinaten der oberen linken Ecke des Layers 

x1%,y1%: Koordinaten der unteren rechten Ecke 


Die Adresse der LayerInfo-Struktur findet sich in der uns be- 
kannten Screen-Struktur (siehe Kapitel 3.4). Dasselbe gilt für die 
Adresse der Bitmap-Struktur. 


Zurück zum Programm: Durch obige Funktion Öffnet es ein 
Layer. Nun soll Text innerhalb des Layers erscheinen. Auch ein 
Layer besitzt einen Rastport (siehe Kapitel 3.6). Durch die 
Funktionen Text und Move der Grafik-Bibliothek (siehe Kapitel 
3.6.1) wird Text in diesen Rastport ausgegeben. 


Nachdem Sie das Layer lang genug bewundert haben, schließt es 
die Layers-Funktion "DeleteLayer" wieder. 


Kommen wir nachträglich zur Layers-Datenstruktur. Wie jedes 
Fenster besitzt auch ein jedes Layer eine solche Struktur. Sie ist 
folgendermaßen aufgebaut: 
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Datenstruktur "Layer"/layers/ 192 Bytes 


Offset 


+ 000 
+ 004 
+ 008 
+ 012 
+ 016 


+ 024 
+ 025 
+ 026 
+ 027 
+ 028 
+ 030 
+ 032 
+ 036 
+ 040 
+ 044 
+ 046 
+ 048 
+ 082 
+ 102 
+ 136 
+ 156 
+ 160 
+ 164 
+ 168 
+ 172 
+ 176 
+ 180 
+ 184 
+ 188 


Typ 


Long 

Long 
Long 

Long 


Byte 
Byte 
Byte 
Byte 
Word 
Word 
Long 
Long 
Long 
Word 
Word 


Long 
Long 
Long 
Long 
Long 
Long 
Long 
Long 
Long 


Bezeichnung 


Zeiger auf Layer im Vordergrund 
Zeiger auf Layer im Hintergrund 
Zeiger auf erstes ClipRect 

Zeiger auf den Rastport des Layers 
Rectangle-Struktur, die Grenzen des Layer 
+16 Word MinX 

+18 Word MinY 

+20 Word MaxX 

+22 Word MaxY 

Lock | 

LockCount 

LayerLockCount 

reserviert 

reserviert 

Layer-Flags 

Zeiger auf Superbitmap, falls vorhanden 
SuperClipRect 

Zeiger auf Fenster 

ScrollX 

ScrollY 

Message Port "LockPort" 

Message "LockMessage" 

Message Port "ReplyPort" 

Message "1 LockMessage" 

Zeiger auf erstes Rectangle der Damagelist 
Zeiger auf ClipRects 

Zeiger auf LayerInfo-Struktur 
Zeiger auf Task mit aktuellem Lock 
Zeiger auf SuperSaveClipRects 
Zeiger auf CR ClipRects 

Zeiger auf CR2 ClipRects 

Zeiger auf CRNEW ClipRects 
System-Use 


4.6.1 Kommentierte Datenstruktur 


Die eben präsentierte Datenstruktur "Layer" bedarf unbedingt 
der weiteren Erläuterung. In gewohnter Weise gehen wir Feld 
für Feld mit Ihnen durch. 
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Die Anfangsadresse des Layers Ihres aktuellen Ausgabefensters 
ermitteln Sie so: 


lLayer&=PEEKL(WINDOW(8)) 


GFA: 


OPENW O 
Layer%=LPEEK(LPEEK(WINDOW(0)+50)) 


Die Anfangsadresse auf diese Datenstruktur bei einem selbster- 
zeugten Layer wird Ihnen von den entsprechenden Layer-Funk- 
tionen automatisch zurückgeliefert. Darauf kommen wir im spä- 
teren Verlauf aber noch zurück. 


Offset O0 und 4: Zeiger auf andere Layers 


Hier finden Sie die Anfangsadressen der Layer-Datenblöcke der 
Layer, die vor oder hinter Ihrem eigenen Layer liegen. Ganz 
analog zu den Fenstern können Sie auch von einem beliebigen 
Layer zu allen anderen im System gelangen. 


Offset 8: Erstes ClipRect 


ClipRect ist eine weitere Datenstruktur. Ein ClipRect beschreibt 
jeweils einen rechteckigen Ausschnitt eines Layers. Hier findet 
sich die Adresse auf die erste ClipRect-Struktur dieses Layers. 
Von dort findet sich das nächste ClipRect und so fort. Diese 
Kette von ClipRects beschreibt den sichtbaren Teil dieses 
Layers. 


Offset 12: Der Rastport 


Hier findet sich die Anfangsadresse des Rastports für dieses 
Layer. Die meisten Funktionen der Grafik-Bibliothek verlangen 
die Adresse des Rastports, in dem sie ausgeführt werden sollen. 
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Da jedes Intuition-Fenster ein Layer besitzt, hat es auch einen 
eigenen Layer-Rastport. Dieser Rastport ist identisch mit dem 
der Fenster-Datenstruktur: 


für AmigaBASIC: 


rastport1&=PEEKL(WINDOW(7)+50) 
rastport2&=WINDOW(8) 
Layer&=PEEKL(WINDOW(8)) 
rastport3&=PEEKL(layer&+12) 
PRINT rastport1& 

PRINT rastport2& 

PRINT rastport3& 


Die gelieferten Anfangsadressen der Rastports sind identisch. 


Offset 16, 18, 20, 22: Bounds 


"Bound" ist ein englisches Wort und steht für "Grenze". Die hier 
gelagerten X- und Y-Werte legen die Grenzen dieses Layers 
fest. Wann immer eine Zeichenfunktion mit Koordinaten arbei- 
tet, die außerhalb dieser Grenzen liegen, wird die Zeichnung 
abgeschnitten, sobald die Grenz-Koordinaten überschritten wer- 
den. 


Offset 24, 25 und 26: Lock-Felder 


Der Amiga ist ein Multi-Tasking-Computer. Das bedeutet, 
mehrere Programme können quasi gleichzeitig ablaufen. Daher 
kann es vorkommen, daß mehrere Programme gleichzeitig auf 
ein Layer zugreifen wollen und sich dabei unweigerlich ins Ge- 
hege kommen würden. Deshalb gibt es das Lock. Mit Hilfe der 
Layer-Funktionen "LockLayer" und "UnlockLayer" können sich 
Tasks uneingeschränkten Zugang zu Layers verschaffen. Solange 
ein Task das Lock innehat, kann kein anderer Task den Inhalt 
der Layer-Datenstruktur verändern. 


Diese Felder verwalten die Lock-Technik. Das erste Feld gibt 
Auskunft, ob dieses Layer gerade "gelockt" ist, das zweite ist ein 
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Zähler für das besitzergreifende Programm, das dritte zählt die 
Interessenten, die sich der Reihe nach angemeldet haben, exklu- 
sive Zugriffsrechte zu bekommen. 


Offset 30: Flags 


Es gibt verschiedene Layer-Typen, die wir gleich eingehend be- 
handeln werden. Dieses Feld enthält das Erkennungsflag dieses 
Layers: 


Bit 0: 1=Layersimple 
Bit 1: 1=Layersmart 
Bit 2: 1=Layersuper 
Bit 6: 1=Layerbackdrop 
Bit 7: 1=Layerrefresh 


Offset 32: Superbitmap 


Im Falle des Layer-Modus’ "Layersuper" besitzt das Layer eine 
gänzlich eigene Zeichenfläche, eine eigene Bitmap. Der Zeiger 
auf diese findet sich hier. Wir werden das gleich ausführlich be- 
handeln. 


Offset 36: SuperClipRect 


Hier finden sich die ClipRects für die Superbitmap, falls eine 
vorhanden ist (siehe Offset 8). 


Offset 40: Fenster 


Normalerweise treten Layers in Verbindung mit Intuition- 
Fenstern in Erscheinung. Ist dies der Fall, dann findet sich hier 
die Adresse der entsprechenden Fenster-Datenstruktur. 


Dieses Feld ist von unglaublicher Wichtigkeit, wenn man Layers 
in bestehende Fenster integrieren will. Wir werden darauf aber 
gleich zu sprechen kommen. 
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Offset 44 und 46: Scrolling 


Im Falle eines Layers des Typs "Layersuper" kann die Zeichen- 
fläche, die das Layer repräsentiert, viel größer sein als die Ab- 
messungen des Layers. Man kann dann das Layer quasi als Auge 
benutzen, mit dem man über eine riesige Grafik fährt. Mehr 
darüber gleich. 


Offset 48 - 136: Messages und Message Ports 


Messages und Message Ports werden von der Exec-Bibliothek 
gehandhabt. Wir werden nicht weiter darauf eingehen, denn 
diese Komponenten haben nichts mit Grafik zu tun. Es sei nur 
soviel verraten: Mit Hilfe von Messages und Message Ports kön- 
nen verschiedene Tasks miteinander kommunizieren. Dabei ist 
ein Message Port eine Art Briefkasten und Sendestation, Messa- 
ges sind die versandten Briefe. Der Reply Port ıst der Emp- 
fangsbriefkasten, der andere Message Port versendet Messages. 


Offset 156: Damage List 


Wir erwähnten bereits, daß es die Aufgabe der Layers ist, ver- 
deckte Fensterbereiche wiederherzustellen, sobald sie nicht mehr 
von anderen Fenstern verdeckt sind. Dazu gibt es eine soge- 
nannte Damage List. Sie besteht aus einer Kette von Daten- 
strukturen namens "Region". Regionen beschreiben rechteckige 
Teilbereiche des Layers. Die Damagelist enthält die durch andere 
Fenster (oder Layers) beschädigten Teile des eigenen Fensters 
(bzw. Layers). 


Die übrigen Offset-Felder enthalten System-Införmationen, mit 
denen BASIC nichts anfangen kann. 
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4.7 Die verschiedenen Layer-Typen 
Insgesamt kennt der Amiga vier verschiedene Layertypen: 


Layersimple 
Layersmart 
Layersuper 
Layerbackdrop 


Diese Modi charakterisieren die Art und Weise, wie zeitweise 
verdeckte Teile eines Layers behandelt werden sollen: 


Simple Refresh (Layersimple) 


Jedesmal, wenn ein Teil dieses Layers sichtbar wird (also im 
Vordergrund liegende Fenster verschwunden sind oder verscho- 
ben wurden), wird das Programm, das dieses Layer aufrief, da- 
mit beauftragt, die sichtbar gewordene Region des Layers erneut 
zu zeichnen. Ein Layer dieses Typs speichert also nicht automa- 
tisch verdeckte Teile ab, um ein "beschädigtes" Layer später 
wieder zu reparieren. Das ist Aufgabe des Programms, in diesem 
Fall also Ihre Aufgabe. 


Layers dieses Typs sind schnell und benötigen wenig Speicher. 
Sie sind aber arbeitsintensiv, denn ihr Inhalt muß jedesmal von 
neuem gezeichnet werden, wenn ein anderes Layer dieses über- 
deckt hatte. 


Smart Refresh (Layersmart) 


Werden Teile dieses Layers verdeckt, dann richtet das System 
automatisch einen Zwischenspeicher ein, in dem die verdeckten 
Teile zwischengespeichert werden. Wird das Layer wieder frei- 
gelegt, dann werden diese zwischengespeicherten Teile automa- 
tisch wieder an ihren angestammten Platz zurücktransferiert. 
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Superbitmap (Layersuper) 


Das Layer ist mit eigenen Bitplanes ausgerüstet, in denen zu je- 
der Zeit der gesamte Inhalt des Layers abgelegt ist. Der Teil des 
Layers, der momentan auf dem Screen sichtbar ist, wird in die 
allgemeine Screen-Bitmap kopiert. 


Es ist möglich, eine Layer-Bitmap einzurichten, die (viel) größer 
ist als das Layer selbst. Sie kann bis zu 1024 x 1024 Punkte groß 
sein. Mit dieser Riesenfläche kann dann problemlos gescrollt 
werden. 


Backdrop (Layerbackdrop) 


Ein Backdrop-Layer liegt immer hinter allen anderen existieren- 
den Layern. 


Wir werden Ihnen nun einen Einblick in die Welt der Layers ge- 
ben und Ihnen zeigen, was sich mit ihrer Hilfe bewerkstelligen 
1äßt: 


4.7.1 Simple Layers: Die Eigenbau-Requester 


Simple Layers eignen sich ganz hervorragend für die folgende 
Aufgabe: Requester. Mit Hilfe von Requestern will man den 
Anwender auf besondere Ereignisse aufmerksam machen: Eine 
Diskette soll ins Laufwerk eingelegt werden, eine Grafik wird 
geladen etc. Das folgende Programm bastelt mit Hilfe von 
Simple-Layers Eigenbau-Requester. Sie rufen einen Request auf 
mittels: 


Request nr%,x%,y%A,text$ 


nr%: Nummer des Requests (0-10) 
x%: X-Koordinate der linken Ecke des Requesters 
y%: Y-Koordinate der obern Ecke des Requesters 


text$: Text für den Requester 
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HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHHHHEIHER 
4 

ı# Programm: Ein Layer - eigener Requester 
ı# Datım: 5.1.87 

ı# Autor: tob 

'# Version: 1.0 

'4 


DIL 





PRINT "Suche die .bmap-Dateien..." 
! Demonstriert die Anwendung von Layers 


ıLAYERS-Bibliothek 
DECLARE FUNCTION CreateUpfrontLayer& LIBRARY 
'DeleteLayer() 


'GRAPHICS-Bibliothek 
'Draw() 
ıMove() 
'Text() 


LIBRARY "graphics.Library" 
LIBRARY "layers.Library"" 


variablen: DIM SHARED layer&(10) 


init: 'Hintergrund 
CLS 
FOR loop%=1 TO 15 
PRINT STRING$(80, 4") 
NEXT Loop% 


main: Request 1,80,40,"Request Nr. 1" 
Request 2,50,50,"Request 2: Dies sind Layers!!"" 
FOR t%=1 TO 30000:NEXT t% 
CloseRequest 1 
Request 1,30,30,"Beliebig positionierbar"" 
FOR t%=1 TO 30000:NEXT t% 
CloseRequest 2 
CloseRequest 1 
Request 1,200,100,'"Das war's." 
FOR t%=1 TO 2000:NEXT t% 
CloseRequest 1 


dasWars: LIBRARY CLOSE 
END 


SUB Request(nr%,x0%,y0%,text$) STATIC 
SHARED screenLayerInfo& 
IF layer&(nr%)<>0 THEN EXIT SUB 
scrAdd& = PEEKL(WINDOW(7)+46) 
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screenLayerInfo& = scrAdd&+224 


screenBitMap& = scrAdd&+184 

x1% = (LEN(text$)+2)*8-8 

y1% = 12 

Layer&(nr%) = CreateUpFrontLayer&(screenLayerInfo&, 


screenBi tMap&,x0%, y0%,x0%+x1%,y0%+y1%,typ%,0) 
layerRast& = PEEKL(layer&(nr%)+12) 
CALL Draw(layerRast&,x1%,0) 
CALL Draw(layerRast&,x1%,y1%) 
CALL Draw(layerRast&,0,y1%) 
CALL Draw(layerRast&,0,0) 
CALL Move(layerRast&,3,9) 
CALL text(layerRast&,SADD(text$) ,LENCtext$)) 
END SUB 
SUB CloseRequest(nr%) STATIC 
SHARED screenLayerInfo& 
IF layer&(nr%) = 0 THEN EXIT SUB 
CALL DeleteLayer(screenLayerInfo&,layer&(nr%)) 
lLayer&(nr%) = 0 
END SUB 


Sie können nun bis zu 11 Requester gleichzeitig öffnen (leicht 
läßt sich diese Zahl erhöhen, aber sagen Sie selbst: Sind elf Re- 
quester gleichzeitig nicht genug?). Die X- und Y-Koordinaten 
der linken oberen Ecke eines jeden Requesters verstehen sich 
relativ zur linken oberen Ecke des Screens, nicht Ihres Fensters. 
Ihre Requester können demnach überall auftauchen, nicht bloß 
innerhalb Ihres Fensters. Außerhalb können sıe jedoch kurzzeitig 
kleine Schäden anrichten, denn dort wird die Damagelist nicht 
aktiviert. 


Der Befehl "CloseRequest" schließt den Requester (und damit das 
Layer) wieder. 


GFA-BASIC macht es seinen Benutzern wieder leicht: Hier 
benötigt man gar keine eigens kreierten Layer, um Requester er- 
scheinen zu lassen. Eine viel einfacherere und viel komfortablere 
Programmierung ermöglicht der GFA-Befehl ALERT, mit dem 
in nur einer einzigen Programmzeile ein kompletter Requester 
erschaffen und verwaltet werden kann: 


ALERT 0,"Ein einzigerlBefehl machts möglich!",0," Toll "a% 
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4.7.2 Mit dem Superlayer 1024 x 1024 Punkte! 


Kommen wir nun zu einem ganz besonderen Layer-Typ: dem 
Superlayer. Anders als alle anderen Typen ıst dieses Layer mit 
einem völlig eigenen Grafikspeicher ausgerüstet. Dieser Grafik- 
speicher kann zudem größer sein als der tatsächlich auf dem 
Bildschirm erscheinende Teil. Insgesamt kann ein solches Layer 
eine bis zu 1024 x 1024 Punkte große Zeichenfläche verwalten. 


Es ist gar kein Problem, ein solches Layer zu generieren: Aus 
dem vorangegangenen Beispiel kennen Sie den "CreateUpfront- 
Layer"-Befehl der Layer-Bibliothek. Ein viel größeres Problem 
ist es, wıe wir das Layer für uns nutzbar machen. 


Da wäre zunächst einmal die Positionierung des neuen Layers. 
Die beste Methode ist hier, das Layer in ein bereits bestehendes 
Fenster "einzupflanzen". Dazu wählt man ein Layer, dessen Ab- 
messungen denen des Fensters entsprechen und legt anschließend 
das Layer genau auf das Fenster. So bemerkt niemand etwas von 
dem Trick. Wir werden das ausprobieren. Hier das Programm: 


EHEEEEERHHHEEHHEEHHHEEHHHHERER 
'# 

‘# Programm: Superbitmap 

'# Datum: 4.1.87 


ı# Autor: tob 
ı# Version: 1.0 
ı# 


I EHIREEHTOEERHREHEHHEOGEN 


' Zeigt, wie bis zu 1024x1024-Punkte grosse Layers 
' erzeugt, programmiert und gescrollt werden. Erste 
' Demo. 


'LAYERS-Bibliothek 

DECLARE FUNCTION CreateUpFrontLayer& LIBRARY 
'DeleteLayer() 

'ScrollLayer() 


'GRAPHICS-Bibliothek 

DECLARE FUNCTION AllocRaster& LIBRARY 
'FreeRaster() 

'SetRast() 

'Move() 

'Drau() 
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'WaitTOF() 


'Text() 
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!EXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 


ıFreeMem() 


!INTUITION-Bibliothek 
ISetWindowTitles() 


PRINT "Suche die .bmap-Dateien... "; 


LIBRARY "layers.Library"" 
LIBRARY "graphics.Library" 
LIBRARY "exec.Library" 
LIBRARY "intuition. Library" 


PRINT "...gefunden. Es geht los." 


initPar: 


initDisp: 


ı* Screen Parameter 
scrWeite% = 320 


scrHoehe% = 256 
scrTiefe% = 1 
scrMode% = 1 
scrNr% = 1 


ı* Fenster Parameter 
windWeite% = scrWeite%-9 


windHoehe% = scrHoehe%-26 
windNr% = 1 

windTitle$ = "Arbeitsflaeche!" 
windMode% = 

ı* Super Bitmap 

superWeite% = 800 

superHoehe% = 400 

superFlag% = 4 


ı* Screen und Fenster oeffnen 

SCREEN scrNr%,scrWeite%,scrHoehe%, scrMode%,scrTiefe% 

WINDOW windNr%,windTitle$,(0,0)CwindWeite%,windHoehe%), 
windMode%, scrNr% 

WINDOW OUTPUT windNr% 

PALETTE 1,0,0,0 

PALETTE 0,1,1,1 


ı* Layer Groesse 


windLayer& = PEEKL(WINDOW(8)) 

LayMinX% = PEEKW(windLayer&+16) 
layMinY% = PEEKW(windLayer&+18) 
layMaxX%X = PEEKW(windLayer&+20) 
layMaxY% = PEEKW(windLayer&+22) 
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initSys: ı* System-Parameter lesen 
windAdd& = WINDOW(7) 
scrAdd& = PEEKL(windAdd&+46) 
scrBitMap& = scrAdd&+184 
scrLayerInfo& = scrAdd&+224 


initSBMap: '* Superbitmap schaffen 
opt& = 2°0+2°1+2°16 
superBitMap& = AllocMem&(40,opt&) 
IF superBitMap& = 0 THEN 
PRINT "Hm. Nicht mal 40 Bytes, nein?" 
ERROR 7 
END IF 


ı* „..und in Betrieb nehmen 
CALL InitBitMap(superBitMap&,scrTiefe%,superWeite%, super 
Hoehe%) 
superPlane& = AllocRaster&(superWeite%, superHoehe%) 
IF superPlane& = O0 THEN 
PRINT "Kein Plaaaaatz!" 
CALL FreeMem(superBitMap&,40) 
ERROR 7 
END IF 
POKEL superBitMap&+8,superPlane& 


'* Superbitmap-Layer oeffnen 
superLayer&=CreateUpFrontLayer&(scrLayerInfo&, scrBitMap&, 
LayMinX%, layMinY%, layMaxX%, LayMaxY%,superFlag%, superBitMap&) 
IF superLayer&=0 THEN 
PRINT ''Heute keine Layer!" 
CALL FreeRaster(superPlane&, superWeite%, superHoehe%) 
CALL FreeMem(superBitMap&,40) 
ERROR 7 
END IF 


ı% naechste Zeile vorerst nicht beachten! 
VRERRHRRHRKRKHTER ERWEITERUNG EINFUEGENFFFARARHRK 


ı* neuer RastPort run 
superRast& = PEEKL(superLayer&+12) 


prepare: ı* Zeichenflaeche vorbereiten 
CALL SetRast(superRast&,0) 


CALL Move(superRast&,0,0) 
CALL Draw(superRast&,superWeite%, superHoehe%) 


CALL Move(superRast&,0,10) 
text1$="Cursortasten = Scrolling" 
CALL Text(superRast&,SADD(text1$) ,LEN(text1$)) 
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CALL Move(superRast&,0,30) 
text2$="1S!1-Taste = Abbruch" 
CALL Text(superRast&,SADD(text2$) ,LEN(Ctext2$)) 


ı* Koordinaten 
POKEW superRast&+34 ,&HAAAA 
FOR loop%=0 TO superWeite% STEP 50 
CALL Move(superRast&, loop%,0) 
CALL Draw(superRast&, loop%, superHoehe%) 
NEXT loop% 
FOR loop%=0 TO superHoehe% STEP 50 
CALL Move(superRast&,0,loop%) 
CALL Draw(superRast&,superWeite%, loop%) 
NEXT loop% 
POKEW superRast&+34 ,&HFFFF 


doScroll: '#* Kontrolliere Scrolling 
WHILE in$<>S" 


in$ = UCASE$CINKEY$) 
yA = 0 
x% =0 


IF in$ = CHR$C30) THEN '<- 
IF 0x%<(superWeite%-layMaxX%+LayMinX%-1) THEN 


x% =1 
0oX% = 0x%+1 
END IF 


ELSEIF in$=CHR$C31) THEN '-> 
IF 0x%>0 THEN 
x% = -1 
oX% = 0%X%-1 
END IF 
ELSEIF in$=CHR$(29) THEN "up 
IF oy%<(superHoehe%- layMaxY%+layMinY%-1) THEN 
y% = 


oy% = 0y%+1 
END IF 
ELSEIF in$=CHR$(28) THEN 'down 
IF 0y%>0 THEN 
ya = -1 
0oy% = 0Y%-1 
END IF 
END IF 
IF in$g<>"" THEN 
CALL ScrollLayer(scrLayerInfo&,superLayer&,x%,y%) 
actu$ = windTitle$+" [X]J="+STR$Cox%)+" [YJ=N+STR$ 
(Oy%)+CHR$(CO) 
CALL WaitTOrF 
CALL SetWindowTitles(windAdd&,SADD(actu$),0) 
END IF 
WEND 


deleteSys: '* System entfernen 
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CALL DeleteLayer(scrLayerInfo&,superLayer&) 

CALL FreeRaster(superPlane&, superWeite%, superHoehe%) 
CALL FreeMem(superBi tMap&,40) 

SCREEN CLOSE scrNr% 

WINDOW windNr%, "hit", , „1 

LIBRARY CLOSE 

END 


Gleich nach dem Start sehen Sie ein Fenster namens "Arbeits- 
fläche". Es enthält ein Raster sowie eine nach unten gerichtete 
Diagonale. Was Sie da sehen, ist ein Superbitmap-Layer, das es 
sich in unserem Fenster bequem gemacht hat. Diese Behauptung 
ist leicht zu beweisen: Fahren Sie einmal mit der Maus auf die 
Rasterfläche, und drücken Sie die linke Maustaste. Sofort riffelt 
sich die Kopfleiste unseres Fensters: Sie haben mit diesem 
Mausdruck das unscheinbar vor unserem Fenster liegende Layer 
aktiviert. Ein Mausdruck auf die Kopfleiste unseres Fensters, 
und alles ist wieder beim alten. 


Wir hatten bereits mehrmals erwähnt, daß Superbitmap-Layers 
einen viel größeren Bereich kontrollieren können als auf den 
Bildschirm paßt. Das haben wir in unserer Demo ausgenutzt. 
Drücken Sie einmal eine der Cursor-(Pfeil-)-Tasten links neben 
dem Zahlenblock der Tastatur. Mit ihrer Hilfe können Sie die 
Position unseres Layers verschieben und so einen anderen Teil 
der durch das Layer kontrollierten Zeichnung sehen. 


Wenn Sie von diesem Programm genug gesehen haben, drücken 
Sie bitte auf die "S"-Taste (für Stop). Sofort gelangen Sie zu Ih- 
rem alten Display zurück (Drücken Sie niemals CTRL-C, also 
BREAK, weıl dann das Superbitmap-Layer nicht verschwinden 
würde). | 


Kommen wir zur Realisierung dieses Projektes. Wir benutzen in 
diesem Programm die Funktionen der Layers-, Grafik-, Exec- 
und Intuition-Bibliothek. Von besonderer Wichtigkeit sind diese 
Funktionen: 


CreateUpfrontLayer() 
AllocRaster() 
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AllocMem() 
((s1p10vob5TScrollLayer() 


Des weiteren benutzen wir: 


InitBitMap() 
SetRast() 

Move() 

Draw() 

WaitTOFf() 
SetWindowTitles() 


und natürlich: 


DeleteLayer() 
FreeRaster() 
FreeMem() 


Nun zum Programm: Es wird zunächst ein Screen der Tiefe I 
geöffnet. Tiefe 1 entspricht einer Bitplane, also maximal zwei 
Farben. Wir wählen diese Tiefe, weil unser Superbitmap-Layer 
ebenso viele Speicherebenen benötigt wie der Screen, in dem es 
auftaucht, tief ıst. Da die Speicherebenen des Superbitmaps sehr 
speicherintensiv sind, können wir es uns nur leisten, eine einzige 
Ebene einzurichten. 


Unsere Superbitmap soll 800 Punkte weit und 400 Punkte hoch 
werden. 


Nachdem Fenster und Screen geöffnet sind, wird die Größe des 
Layers festgelegt. Bei dieser Größe handelt es sich um die Größe 
des Layers auf dem Bildschirm, nicht aber um die Größe der 
Zeichenebene des Layers. Da das Layer den gesamten Fensterin- 
halt ausfüllen soll, erfragen wir die entsprechenden Parameter 
aus dem bereits existierenden Layer unseres Fensters (siehe Ka- 
pitel 4.5, Offsets 16 - 22). 


Bevor wir nun endlich mittels "CreateUpfrontLayer" das Layer 
zum Leben erwecken können, müssen wir die private Bitmap 
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unseres Layers beschaffen. Das ist nur bei Layers des Typs 
"Layersuper" notwendig; alle anderen Layer bekommen automa- 
tisch ihren Speicher. Wir gehen dazu ganz analog zu unserem 
Primitiv-Display aus Kapitel 4.4 vor: Eine 40 Bytes große 
Bitmap-Struktur wird eingerichtet und mittels "InitBitMap" ge- 
brauchsfertig gemacht. Anschließend besorgen wir uns mit Hilfe 
der Grafik-Funktion "AllocRaster" eine zusätzliche Bitplane. 
Diese Funktion verlangt die X- und Y-Dimension der Bitplane 
in Pixel und liefert einen Zeiger auf die Anfangsadresse der 
neuen Plane, wenn soviel Speicherplatz vorhanden ist. 


Nachdem die Bitplane in unsere neue Bitmap-Struktur einge- 
bunden wurde, kann endlich der Aufruf "CreateUpfrontLayer" 
erfolgen. Die Variable superflag% beinhaltet den Wert 4 (=Su- 
perlayer), außerdem wird erstmals die Adresse einer (unserer 
neuen) Bitmap-Struktur mitgeliefert. 


Sobald sich das Layer erfolgreich geöffnet hat, soll etwas in sei- 
nem Inneren erscheinen. Dazu löschen wir mittels der Grafik- 
Funktion SetRast seinen Inhalt und zeichnen eine Diagonale mit 
Hilfe des Draw-Befehls der Grafik-Bibliothek. 


Der Programmteil "doScroll" verwaltet das Scrolling (das Ver- 
schieben) der Superbitmap auf Druck der Cursortasten. Dazu 
dient die Layer-Funktion ScrollLayer). Sie verlangt vier Para- 
meter: 


ScrollLayer(layerinfo&,layer&,x%,y%) 


layerinfo&: Adresse der Layerinfo-Struktur (siehe "Screen") 
layer&: Adresse auf unser neues Superlayer 
xR,y%R: Anzahl der Pixel, um die der Inhalt des Layers gescrollt 


werden soll (negative Werte = umgekehrte Richtung) 


Nach jedem Scrolling wird via Intuition-Funktion SetWindow- 
Titles die augenblickliche X- und Y-Position in der Kopfzeile 
des Fensters ausgegeben. Die Funktion WaitTOF entstammt der 
Grafik-Bibliothek. "TOF" steht für "Top Of Frame". Diese 
Funktion wartet darauf, daß der Elektronenstrahl die oberste 
Display-Zeile erreicht. Dadurch wird verhindert, daß die 
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Fenster-Kopfzeile verändert wird, während der Elektronenstrahl 
über sie hinwegsaust - denn das hätte ein unschönes Flackern 
zur Folge. 


Wurde die "S"-Taste gedrückt, dann wird zunächst das Super- 
layer dicht gemacht. Anschließend wird die von uns erzeugte 
Bitplane und danach die Bitmap-Struktur ans System zurückge- 
geben. 


Als erster Test hat sich das Programm bewährt. Aber unsere 
Programmiertechnik ist noch unzureichend, denn es gibt ein paar 
schwerwiegende Probleme: 


a) Wenn der Anwender zufällig mit seiner Maus das Layer 
anklickt, wird dieses aktiv, das eigene Fenster wird deak- 
tiviert. Das hat zur Folge, daß das eigene Programm keine 
Tastatur- oder Mauseingaben mehr registrieren kann. 


b) Dadurch, daß wir das Superlayer direkt aus dem System 
generieren, haben wir keine Möglichkeit, mit Hilfe der 
BASIC-Zeichenbefehle etwas in das Superlayer zu zeich- 
nen. Statt dessen müssen wir umständliche Funktionen der 
Grafik-Bibliothek bemühen. 


Damit sich Superbitmap-Layer nutzen lassen, müssen diese Pro- 
bleme gelöst werden. Das soll nun geschehen. 


4.7.3 Permanente Deaktivierung des Layers 


Oder fällt Ihnen eine bessere Überschrift ein? Wir werden uns 
hier des Problems a) annehmen. Es muß verhindert werden, daß 
sich das Layer mit der Maus anklicken und aktivieren läßt. Un- 
ser Ziel ist, daß sich das Layer von der Maus nicht beeinflussen 
läßt, unser eigenes Fenster also permanent aktiv bleibt. 


Ein Blick in das Grafiksystem des Amiga, und die Antwort ist 
gefunden: In jeder Layer-Struktur existiert ab Offset 40 ein Feld 
namens "Zeiger auf Fenster". Bei einfachen Layern ist dieses 
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Feld Null. Anders bei Layern, die von einem Intuition-Fenster 
benutzt werden. Dort enthält dieses Feld einen Zeiger auf die 
Fenster-Datenstruktur des Fensters, das dieses Layer benutzt. 
Einziger Zweck dieses Zeigers ist es, Intuition mitzuteilen, wenn 
der Benutzer per Mausklick dieses Layer aktiviert hat. 


Wir wollen verhindern, daß Intuition unser eigenes Fenster 
deaktiviert, sobald das Layer aktiv wird. Also müssen wir in das 
Datenfeld unseres Layers die Adresse der Fenster-Struktur 
schreiben, die aktiv bleiben soll. Das geschieht durch folgende 
Zeile: 


POKEL layer&+40 ,WINDOW(7) 


Sie können diese Technik gleich an unserem Demoprogramm aus 
Kapitel 4.7.2 ausprobieren. Fügen Sie dazu die folgende Zeile an 
die mit "HIER ERWEITERUNG EINFÜGEN" markierte Stelle 
des Listings ein: 


POKEL superLayer&+40,WINDOW(7) 


Nach dem Start können Sie mit der Maus beliebig auf dem 
Layer herumfahren und die linke Maustaste drücken - unser 
Fenster bleibt aktiviert. 


Damit wäre das erste Problem gelöst. Kommen wir zur Lösung 
des zweiten: 


4.7.4 Verwendung der BASIC-Befehle innerhalb eines Layers 


Analysieren wir zunächst das Problem: AmigaBASIC-Grafikbe- 
fehle wie LINE, CIRCLE oder auch PRINT können nicht in 
unser Layer zeichnen, denn es gibt keine Möglichkeit, die Aus- 
gabe dort hinzuleiten. Wir müssen also einen kleinen Systemein- 
griff vornehmen. | 


Es ist durch geschickte Zeigermanipulation möglich, die Gra- 
fikausgabe vom eigenen Fenster in ein Layer zu transferieren. 
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Dabei ist es jedoch von großer Wichtigkeit, daß die alten Zu- 
stände wiederhergestellt werden, bevor das Layer geschlossen 
wird. Andernfalls kommt das System ins Schleudern und hängt 
sich auf bzw. holt den Guru. 


In der Praxis sieht die Technik so aus: 


(nachdem das Layer geöffnet ist...) 


backupRast&=PEEKL(layer&+12) 
ı* Rastport des Layers retten 


backupLayer&=PEEKL(WINDOW(8)) 
ı* Layer des Fensters retten 


POKEL WINDOW(8), layer® 
POKEL layer&+12,WINDOW(8) 


Jetzt werden alle Grafikbefehle des AmigaBASIC innerhalb des 
Layers ausgeführt. Achtung: Sie können getrost alle BASIC-Be- 
fehle verwenden, mit Ausnahme jeglicher Fill-Kommandos (wie 
z.B. PAINT, LINE ()-(),,bf). Der Grund dafür liegt in einer 
Datenstruktur namens "TmpRas", die im Rastport zu finden ist. 
Für Fill-Befehle muß sie auf einen Speicherbereich zeigen, der 
mindestens so groß ist wie eine Bitplane des Layers. Es ist kein 
Problem, diese TmpRas-Struktur mit mehr Speicherplatz auszu- 
rüsten, um danach mit den Fill-Befehlen arbeiten zu können. 
Das würde aber soviel Speicher kosten, daß es sich nicht mehr 
lohnt. In unserem Fall kämen 40.000 Bytes zusammen. Für die 
Leser unter Ihnen, die über genügend Speicherplatz verfügen, 
folgt aber trotz allem an späterer Stelle eine Möglichkeit, die 
TmpRas-Struktur umzumodeln. 


Die Ausgabe wird durch diese Zeilen zurück zum eigenen Fenster 
geleitet: 

POKEL WINDOW(8) ,backupLayer& 

POKEL layer&+12,backupRrast& 


Wir werden das erlangte Wissen gleich einsetzen, und zwar in 
unserem bereits bekannten Demo-Programm: 
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EN ORHRHONGEREHRCHEREREHONHEHE 


'# 
ı# Programm: Superbitmap mit BASIC Grafik 
'# Befehlen 


ı# Datum: 12.4.87 
ı# Autor: tob 

i# Version: 1.0 
'4 


DELL EEE 







' Ermoeglicht, die AmigaBASIC Grafik-Befehle auch 
' im SuperBitmap-Layer anwenden zu koennen. 


PRINT "Suche die .bmap-Dateien..." 


"LAYERS-Bibliothek 

DECLARE FUNCTION CreateUpfrontLayer& LIBRARY 
'Deletelayer() 

'ScrollLayer() 


'IGRAPHICS-Bibliothek 

DECLARE FUNCTION AllocRaster& LIBRARY 
'FreeRaster() 

'SetRast() 

ıMove() 

'Draw() 

IWaitTOF() 


!EXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 
IFreeMem() 


!INTUITION-Bibliothek 
'SetWindowTitles() 


LIBRARY "layers.Library" 
LIBRARY "graphics.Library" 
LIBRARY "exec.Library" 
LIBRARY "intuition. Library" 


initPar: '* Screen Parameter 
scrWeite% = 320 
scrHoehe% = 256 
scrTiefe% = 1 
scrMode% = 1 
scrNr% =1 


ı* Fenster Parameter 
windWeite% = scrWeite%-9 
windHoehe% = scrHoehe%-26 
windNr% 1 
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windTitle$ = "Arbeitsflaeche" 
windMode% = 0 


ı* Super Bitmap 
superWeite% = 800 
superHoehe% = 400 
superFlag% 4 


initDisp: '* Screen und Fenster oeffnen 
SCREEN scrNr%,scrWeite%,scrHoehe%, scrMode%,scrTiefe% 
WINDOW windNr%,windTitle$,(0,0)(windWeite%,windHoehe‘%), 
windMode%,scrNr% 
WINDOW OUTPUT windNr% 
PALETTE 1,0,0,0 
PALETTE 0,1,1,1 


ı* Layer Groesse 


windLayer& = PEEKL(WINDOW(8)) 

LayMinX% = PEEKW(windLayer&+16) 

laMinY% = PEEKW(windLayer&+18) 

layMaxX%X = PEEKW(windLayer&+20) 

layMaxY% = PEEKW(windLayer&+22) 
initSys: ı* System-Parameter lesen 

windAdd& = WINDOW(7) 

scrAdd& = PEEKL(windAdd&+46) 

scrBitMap& = scrAdd&+184 

scrLayerInfo& = scrAdd&+224 


initSBMap: '* Superbitmap schaffen 
opt& = 2°0+2°1+2°16 
superBitMap& = AllocMem&(40,opt&) 
IF superBitMap& = O0 THEN 
PRINT "Hm. Nicht mal 40 Bytes, nein?" 
ERROR 7 
END IF 


'ı* „..und in Betrieb nehmen 
CALL InitBitMap(superBitMap&,scrTiefe%,superWeite%,super- 
Hoehe%) | 
superPlane& = AllocRaster&(superWeite%, superHoehe%) 
IF superPlane& = O0 THEN 
PRINT "Kein Plaaaaatz!" 
CALL FreeMem(superBitMap&,40) 
ERROR 7 
END IF 
POKEL superBitMap&+8,superPlane& 


ı*% Superbitmap-Layer oeffnen 

superLayer&=CreateUpFrontLayer&(scrLayerInfo&,scrBitMap&, 
LayMinX%, layMinY%, LayMaxX%, LayMaxY%, superFlag%, superBitMap&) 
IF superLayer&=0 THEN 
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prepare: 


zeichne: 


scrollD: 


PRINT "Heute keine Layer!" 
CALL FreeRaster(superPlane&, superWeite%, superHoehe%) 
CALL FreeMem(superBitMap&,40) 
ERROR 7 
END IF 


ı% naechste Zeile vorerst nicht beachten! 
VERRRKRRRRKUHLER ERWEITERUNG EINFUEGENFFRRÄHRKRK 


ı* neuer RastPort 
superRast& = PEEKL(superLayer&+12) 


ı* Zeichenflaeche vorbereiten 
CALL SetRast(superRast&,0) 


ı* Layer aktivieren 

POKEL superLayer&+40 ,WINDOW(7) 
backup.rast& = PEEKL(superLayer&+12) 
backup.layer& = PEEKL(WINDOW(8)) 
POKEL superLayer&+12,WINDOW(8) 

POKEL WINDOW(8),superLayer& 


ı%* Koordinaten 

POKEW superRast&+34 ‚&HAAAA 

FOR loop%=0 TO superWeite% STEP 50 
LINE (loop%,0)-(loop%,superHoehe%) 

NEXT loop% 

FOR loop%=0 TO superHoehe% STEP 50 
LINE (0,1loop%)-(superWeite%, Loop%) 

NEXT loop% 

POKEW superRast&+34 ,&HFFFF 


ı* Hier kommen die AmigaBasic-Befehle zum Zuge 
CIRCLE (400,200) ,250 

CIRCLE (400,200),300 

LINE (200,100)-(600,300),1,bf 


'* scroll Display 
FOR loop%=0 TO 150 
yA = 1 
GOSUB scrolllIt 
NEXT loop% 


FOR loop%=0 TO 500 
yk = 0 
x% = 1 
GOSUB scrollit 
NEXT loop% 


FOR loop%=0 TO 150 
y% = -1 
x% = -1 
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GOSUB scrollit 
NEXT loop% 


FOR loop%=0 TO 350 


x% =-1 
GOSUB scrollit 
NEXT loop% 


deleteSys: '* System entfernen 
POKEL WINDOW(8),backup. layer& 
POKEL superLayer&+12,backup.rast& 
POKEL superLayer&+40,0 


CALL DeleteLayer(scrLayerInfo&,superLayer&) 

CALL FreeRaster(superPlane&, superWeite%, superHoehe%) 
CALL FreeMem(superBitMap&,40) 

SCREEN CLOSE scrNr% 

WINDOW windNr%, "hit", „-1 

LIBRARY CLOSE 

END 


scrollit: '* ScrollFunktion 
CALL ScrollLayer(scrLayerInfo&,superLayer&,x%,y%) 
RETURN 


Eine durch AmigaBASIC-Grafikbefehle geschaffene Supergrafik 
wird auf dem Bildschirm hin- und hergescrollt. Für einen Test 
reicht das aus. Am Ende dieses Buches finden Sie ein voll aus- 
gebautes Grafik-Zeichenprogramm, das die Ihnen hier gezeigte 
Layer-Technik benutzt und weitere Anregungen bieten wird. Als 
Abschluß dieses Kapitels sei noch ein kleiner Tip gegeben: Mit 
den hier gezeigten Programmteilen lassen sich wirklich alle Gra- 
fikbefehle des AmigaBASIC in einem Layer verwenden. Bei 
zwei Befehlen ist allerdings Vorsicht geboten: Der Befehl "CLS" 
löscht lediglich die einem Fensterinhalt entsprechende linke 
obere Ecke des Layers. Wollen Sie wirklich das gesamte Layer 
löschen, funktioniert dies über den Grafikbefehl "SetRast". Sie 
rufen diesen Befehl mit folgender Syntax auf: 
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CALL SetRast(rastport&, farbe*%) 


rastport&: Adresse des Rastports Ihres Layers/Fensters 
farbe%: Die Farbe, mit der Ihr Rastport ausgefüllt werden soll. Zum 
Löschen normalerweise =0. 


Wenn Sie Text in einen Teil des Layers drucken (LOCATE-Be- 
fehl), der unterhalb der unteren Kante Ihres Fensters liegt, dann 
scrollt AmigaBASIC unglücklicherweise das ehemalige Ausgabe- 
fenster, also den linken oberen Teil des Layers, um eine Zeile 
nach oben. Man umgeht dieses Problem, indem die in Kapitel 2 
beschriebene Grafik-Funktion "Text" an Stelle von PRINT be- 
nutzt wird. 


4.8 Layer im System 


Erinnern Sie sich an unseren Versuch aus Kapitel 4.3, das 
System mit seinen Datenstrukturen zeichnerisch darzustellen? 
Mittlerweile sollten auch die "Layers" für Sie keine Unbekannten 
mehr sein. Mit dem Wissen über sie läßt sich das System nun 
noch genauer darstellen. Zunächst unser Layer... 


Rastport Fenster 


Layer 





..und hier das gesamte System: 
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Fenster 


Layer 


An dieser Stelle haben wir alle wichtigen Systemkomponenten 
abgeschlossen. Das Grafiksystem in seinen Grundzügen steht Ih- 
nen nun offen. Kommen wir jetzt zu den untergeordneten Da- 
tenstrukturen, die zum Teil nicht minder wichtig sind. 
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5. Die Zeichensätze des Amiga 


Der Amiga kennt verschiedene Schrifttypen. Wie bei jedem an- 
deren Computer auch, gibt es beim Amiga einen Speicherbe- 
reich, in dem das Äußere des gerade aktiven Zeichensatzes ab- 
gespeichert ist. Anders als bei den meisten Computern besitzt 
der Amiga zwei dieser Zeichensätze werksmäßig eingebaut. 
Diese beiden Schrifttypen wurden auf die Namen: 


topaz 8 
und 


topaz 9 


getauft. Welcher der beiden Typen beim Einschalten Ihres Rech- 
ners aktiv ist, hängt von Ihren Einstellungen in den Workbench- 
"Preferences" ab (60- oder 80-spaltiger Text). 


Anders als die meisten anderen Computer hat Ihr Amiga zudem 
die Möglichkeit, andere Zeichensätze vom Disk-Drive nachzula- 
den. So steht Ihnen eine praktisch unbegrenzte Anzahl der ver- 
schiedensten Schrifttypen zur Gestaltung Ihrer Projekte zur 
Verfügung. 


Schließlich gibt es die Möglichkeit, völlig eigene Schrifttypen zu 
entwickeln, wobei Ihrer Phantasie keine Grenzen gesetzt sind. 


AmigaBASIC-Programmierern stehen alle drei Wege offen. Wir 
werden Ihnen nacheinander ın diesem Kapitel diese drei Metho- 
den vorstellen und anhand vieler Beispielprogramme zeigen, wie 
die Programmierung funktioniert. 


5.1 Erster Kontakt zum Amiga-Zeichengenerator 


Bevor wir überhaupt an die Verwirklichung eines der geplanten 
Projekte gehen können, benötigen wir einen Anfangspunkt, an 
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dem wir ins Zeichensatz-System des Amiga eindringen können. 
Diese Hintertür ins System findet sich im Rastport. Ihres 
Fensters. Die Adresse des Rastports liegt, wie immer, in der 
Variablen WINDOW(8) (siehe Kapitel 3.6). Dort findet sich ab 
Offset 52 die Anfangsadresse des momentan aktiven Zeichenge- 
nerators. Genauer gesagt handelt es sich um die Anfangsadresse 
auf eine Datenstruktur namens "TextFont" (engl. "Font" = 
"Schriftart", "Zeichensatz"). Hier ihr interner Aufbau: 


textFont&=PEEKL(WINDOW(8)+52) 


GFA; 


OPENW O 
textFont%=LPEEK(LPEEK(WINDOW(0)+50)+52) 


Datenstruktur "TextFont"/graphics/ 52 Bytes 


Offset Typ Bezeichnung 


+ 000 ---- Message Struktur 

+ 010 Long Zeiger auf Namensstring 
+ 020 Word Höhe des Zeichensatzes 
+ 022 Byte Stil des Zeichensatzes 


normal =0 

unterstrichen =/1 =Bit0=1 
fett = =-Bitl1=1 
kursiv =4 =Bit2=1 
extended = 8 =Bit3=1 

+ 023 Byte Preferences und Flags 

ROM- Zeichensatz =1 =Bit0=1 
Disk-Zeichensatz =2 =Bitli=1 
Rev-Path =4 =Bit2=1 
Talldot = 8 = Bit3=1 
Widedot =16 =Bit4=1 
Proportional =32 =Bi5=1 
Designed =64 =Bi6=1 
Removed =128 =Bit7=1 


+ 024 Word Breite des Zeichensatzes (Durchschnitt) 
+ 026 Word Höhe der Zeichen ohne Unterlängen 

+ 028 Word Smear-Effekt für Fettdruck 

+ 080 Word Zugriffszähler 

+ 032 Byte ASCII-Code des ersten Zeichens 

+ 033 Byte ASCII-Code des letzten Zeichens 


——— Die Zeichensätze des Amiga —————— — 283 


Offset Typ Bezeichnung 


+ 034 Long Zeiger auf Zeichendaten 

+ 038 Word Bytes pro Zeichensatz-Zeile (Modulo) 

+ 040 Long Zeiger auf Offset-Daten für Zeichen-Decodierung 
+ 044 Long Zeiger auf Breiten-Tabelle der Zeichen 

+ 048 Long Zeiger auf Zeichen-Kern-Tabelle 


In dieser Datenstruktur finden sich alle Parameter, die der 
Amiga benötigt, um einen Zeichensatz darzustellen. Es folgt nun 
die detaillierte Beschreibung der Datenfelder. Sie können diesen 
Teil im Moment getrost überspringen, denn wir werden uns erst 
sehr viel später wieder auf ihn beziehen. 


Detaillierte Beschreibung: 


Offset 0: Message 


Da ein Zeichensatz unabhängig von anderen laufenden Tasks 
quasi als eigenständiges Programm operiert, bedarf es der 
Message-Technik, um Mitteilungen an ihn zu übermitteln. Diese 
Message-Struktur dient der Aufnahme des Signals für die Ent- 
fernung dieses Zeichensatzes aus dem System. 


Offset 10: Zeiger auf Namensstring 


Dieses Feld liegt innerhalb der Message-Struktur. Hier findet 
sich ein Zeiger auf den Namensstring dieses Zeichensatzes. Das 
Ende des Namens ist wie immer mit einem Null-Byte gekenn- 
zeichnet. Den Namen Ihres augenblicklichen Zeichensatzes kön- 
nen Sie also mit Hilfe der folgenden Zeilen bestimmen: 


fenster.rast&=WINDOW(8) 
font . add&=PEEKL(fenster.rast&+52) 
font .name&=PEEKL( font. add&+10) 
gefunden%=PEEK( font.name&) 
WHILE gefunden%)0 
font .name&=font .name&+1 
font .name$=font .name$+CHR$( gefunden‘) 
gefunden‘ =PEEK( font .name®) 
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WEND 


PRINT "Name des Zeichensatzes: ";font.name$ 


Offset 20 und 22: Zeichensatz- Attribute 


Hier finden sich die Charakteristika des Zeichensatzes: seine 
Höhe in Pixel und seine Stil-Bits. 


Offset 23: Preferences und Flags 


Die Bits dieses Bytes reflektieren den augenblicklichen Status 
dieses Zeichensatzes. Bei der Suche nach einem Zeichensatz kön- 
nen Bits analog zu dieser Belegung gesetzt und als Preferences 
eingesetzt werden. Das heißt, der gefundene Zeichensatz muß 
nicht unbedingt diesen Bits entsprechen, tut es aber im Rahmen 
der Möglichkeiten. 


Offset 24 und 26: Weitere Dimensionen des Zeichensatzes 


Offset 28: Zähler für Fettdruck 


Wenn der Amiga Fettdruck ausgibt, wird der Text dazu norma- 
lerweise um ein Pixel nach rechts verschoben nochmals ausgege- 
ben. Hier findet sich dieser Zähler. Durch andere Werte kann 
der Text aber auch um größere Abstände verschoben werden: 


font&=PEEKL(WINDOW(8)+52) 

POKE WINDOW(8)+56,2 '"Fettdruck ein 

POKEW font&+28,3 '3 Pixel nach rechts verschieben 
PRINT "Demo-Text"" 

POKE WINDOW(8)+56,0 "normal 


Offset 30: Zugriffszähler 


Sobald ein Zeichensatz geöffnet wird, steht er dem gesamten 
System zur Verfügung. Mehrere Programme (Tasks) können also 
gleichzeitig auf einen Zeichensatz zugreifen. Jeder Task, der 
einen Zeichensatz für seinen eigenen Gebrauch öffnet, ist ver- 
pflichtet, ihn nach erfolgreicher Benutzung wieder zu schließen. 
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Öffnet ein Task nun einen Zeichensatz, der bereits von einem 
anderen Task geöffnet wurde, wird keine neue (und speicherin- 
tensive) Datenstruktur eingerichtet. Statt dessen erhält der zweite 
Task Zugriff auf dieselbe Datenstruktur, die Task 1 geöffnet 
hat. Gleichzeitig erhöht sich der Zugriffszähler von 1 auf 2. 
Gibt nun ein Task die Anweisung, diesen Zeichensatz zu 
schließen, wird der Zugriffszähler um eins vermindert. Erst 
wenn der Zähler den Wert O0 erreicht, wird die Datenstruktur 
tatsächlich aus dem Speicher entfernt. Durch diese Technik wird 
verhindert, daß der Task, der diesen Zeichensatz ursprünglich 
geöffnet hat, ihn schließt, während andere Programme mittler- 
weile auch auf diesen Zeichensatz zugreifen und ihn noch benö- 
tigen. 


Offset 32 und 33: ASCII-Codes 


Wie Sie sicher wissen, ist der Amiga in der Lage, bis zu 256 
verschiedene Zeichen in einem Zeichensatz unterzubringen. 
Nicht immer ist es jedoch sinnvoll, so viele Zeichen zu definie- 
ren. Das Alphabet beispielsweise besteht aus lediglich 26 Zei- 
chen. Die meisten Zeichensätze schöpfen daher die Palette der 
256 Zeichen nicht aus, sondern bestimmen eine untere und eine 
obere Grenze, zwischen denen die im Zeichensatz definierten 
Zeichen liegen. Diese Grenzen werden in diesen beiden Feldern 
hinterlegt. 


Offset 34: Die Zeichendaten 


Hier findet sich der Zeiger auf die Definition der Zeichen in 
diesem Zeichensatz. Wie dieser Datenblock aufgebaut ist, wird 
später in Kapitel 5 behandelt. 


Offset 38: Modulo 


Als "Modulo" bezeichnet man die Anzahl der Bytes pro Zeile ei- 
nes Datenblockes. Der Amiga speichert den Zeichensatz zeilen- 
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weise ab, d.h. jeweils eine Zeile aller Zeichenzeilen. Mit Hilfe 
des Modulos gelangt man an den Anfang der nächsten Zeile. 


Offset 40: Daten-Decodierung 


Mit Hilfe der Daten-Decodierung ist es möglich, aus den jewei- 
ligen Datenzeilen die Stücke herauszufischen, die zu dem ge- 
wüschten Zeichen gehören. Einzelheiten folgen. 


Offset 44: Breiten-Tabelle 


Die Zeichen eines Zeichensatzes müssen nicht eine konstante 
Breite besitzen. Sogenannte "Proportionalschrift" definiert für je- 
des Zeichen eine individuelle Breite. Ein "i" ist damit schmaler 
als beispielsweise ein "W". Hier findet sich ein Zeiger auf die 


Breiten-Tabelle. Auch hierzu folgen weitere Einzelheiten. 


Offset 48: Zeichen-Kern 


Einzelheiten folgen. 


5.2 Öffnen des ersten Zeichensatzes 


Sie haben gerade die innerste Datenstruktur eines Zeichensatzes 
kennengelernt. Bevor wir mit ihr weiterarbeiten, stellen wir Ih- 
nen eine weitere, kürzere Datenstruktur namens "TextAttr" vor: 


Datenstruktur "TextAttr"/graphics/8 Bytes 


Offset Typ Bezeichnung 


+ 000 Long Zeiger auf nullterminierten Namensstring 
+ 004 Word Höhe des Zeichensatzes 

+ 006 Byte Stil-Bits 

+ 007 Byte Preferences 


(Definition der Felder: Siehe Kapitel 5.1) 
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Mit Hilfe dieser Struktur können Sie Zeichensätze beschreiben, 
oder, wenn Sie so wollen, "zur Fahndung ausschreiben": Die 
Grafik-Routine "OpenFont" (= Öffne Zeichensatz) sucht mit 
Hilfe der dort gelagerten Daten nach einem entsprechenden 
Zeichensatz. Wir werden das gleich ausprobieren. Zunächst die 
Syntax der Funktion "OpenFont": 


newFont&=OpenFont&(textAttr&) 


textAttr&: Anfangsadresse der korrekt ausgefüllten "Text Attr"- 
Datenstruktur (siehe oben!). 

newFont&: Wenn der Zeichensatz erfolgreich geöffnet wurde, liegt hier 
die Anfangsadresse der "TextFont"-Datenstruktur des neuen 
Zeichensatzes (siehe Kapitel 5.1!). 


HHHHHHHHHHHHHHIHIHHHIHIHIHIHTHIHIHIHIHIHIHIHIHIFTFIERE 
4 

ı# Programm: Zeichensatz laden 

'# Datum: 10.4.87 

ı# Autor: tob 

ı# Version: 1.0 

'# 

HEHE EHHTTEEEEHHHHHHHHHHHHR 


ı Laedt die beiden ROM-Zeichensaetze "topaz 8" und 
ı Ntopaz 9" 


PRINT "Suche die .bmap-Dateien..." 


'IGRAPHICS-Bibliothek 

DECLARE FUNCTION OpenFont& LIBRARY 
ıCloseFont() 

'SetFfont() 


LIBRARY "graphics.Library" 


demo: ı* Demonstriert die beiden ROM- Fonts! 
demo.1$ = "TOPAZ 9 *** topaz 9" 
demo.2$ = "TOPAZ 8 *** topaz 8" 
CLS 


FOR demo%=1 TO 10 
OeffneZeichensatz 9 
FOR loop%=1 TO 10 

PRINT demo. 1$; 
NEXT loop% 
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PRINT 


OeffneZeichensatz 8 
FOR loop%=1 TO 10 
PRINT demo.2$; 

NEXT Loop% 
PRINT 
NEXT demo% 


LIBRARY CLOSE 
END 


SUB OeffneZeichensatz(hoehe%) STATIC 
font.name$ = "topaz.font"+CHR$(0) 


font.hoehe% = hoehe% 

font.stil% =0 

font.prefs% = 0 

font.alt& = PEEKL(WINDOW(8)+52) 


ı* TextAttr-Struktur ausfuellen 
textAttr&(0) = SADD(font.name$) 
textAttr&(C1) = font.hoehe%*2"16+font.stil%*2"4+font.prefs% 


ı* neuen Zeichensatz oeffnen 
font.neu& = OpenFfont&(VARPTR(textAttr&(0))) 
IF font.neu&<>0 THEN 
CALL CloseFont(font.alt&) 
CALL SetFont(WINDOW(8), font.neu&) 
END IF 
END SUB 


Mit diesem Programm lassen sich die beiden ROM-Zeichensätze 
"topaz8" und "topaz9" öffnen und benutzen. Sollten Sie versu- 
chen, für die Zeichensatzhöhe Werte kleiner als 8 oder größer 
als 9 einzugeben, dann passiert scheinbar "gar nichts", einer der 
beiden ROM-Zeichensätze erscheint. 


Das Programm verwendet zwei weitere Bibliotheksroutinen: 


CloseFont() 
und 
SetFont() 


Sobald Sie einen neuen Zeichensatz öffnen, muß der alte von 
Ihnen geschlossen werden, damit der Zugriffszähler aus der 
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"TextFont"-Struktur (siehe Kapitel 5.1) korrekte Werte enthält. 
Dazu verwenden Sie die Routine "CloseFont". Als Argument 
dient die Adresse der "TextFont"-Struktur des alten Zeichen- 
satzes. Diese findet sich in Ihrer Rastport-Struktur. 


Mit dem Öffnen des Zeichensatzes allein ist es noch nicht getan. 
Vielmehr müssen Sie im Anschluß daran die Informationen über 
den neuen Zeichensatz Ihrem Rastport zukommen lassen. Diese 
Aufgabe übernimmt die Routine "SetFont". Sie verlangt zwei Ar- 
gumente: Die Adresse des Rastports sowie die Adresse der 
"TextFont"-Struktur eines korrekt geöffneten Zeichensatzes. 
Dieser Wert wird von der "OpenFont"-Funktion geliefert. 


5.3 Zugriff auf die Disk-Fonts 


Nach ein paar Minuten des Nachdenkens werden Sie das eben 
Gesagte sicherlich verinnerlichen. Das Programmbeispiel hat ge- 
zeigt: Es ist gar nicht so schwer, einen alternativen Zeichensatz 
zu aktivieren. Zwischen den beiden ROM-Zeichensätzen konnte 
beliebige hin- und hergeschaltet werden. 


Diese beiden Zeichensätze sind zugegebenermaßen nicht sehr 
abwechslungsreich. Sie wurden mit einem praktischen Hinterge- 
danken konzipiert, denn sie sollten 60- bzw. 80-spaltigen Text 
darstellen können. Um an wirklich abwechslungsreiche Zei- 
chensätze zu kommen, muß ein anderer Weg beschritten werden. 
Auf jeder Workbench-Diskette befinden sich serienmäßig meh- 
rere Zeichensätze gespeichert. Sie befinden sich im Unterdirec- 
tory "Fonts". Sofern Sie die Diskette noch nicht einem ausge- 
dehnten "Ausforsten" unterzogen haben, liegen dort (Version 1.2) 
folgende Schrifttypen: 


Nr. Höhe Name 


01 08 ruby font 
02 12 ruby .font 
03 15 ruby .font 
04 12 diamond font 
05 20 diamond.font 
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Nr. Höhe Name 


06 09 opal.font 

07 12 opal.font 

08 17 emerald.font 
09 20 emerald.font 
10 11 topaz.font 

11 09 garnet.font 
12 16 garnet.font 
13 14 sapphire.font 
14 19 sapphire.font 


Die beiden Topaz-Typen aus dem vorangegangenen Beispiel fin- 
den sich hier natürlich nicht, denn sie wurden mit der Kick- 
start-Diskette bereits in den Rechner geladen oder befinden sich 
bereits im ROM. 


Disk-Zeichensätze lassen sich nicht mit Hilfe des "OpenFont"- 
Befehls aktivieren, denn dieser Befehl funktioniert nur mit 
Zeichensätzen, die bereits im Speicher des Amiga liegen. Statt 
dessen wird der Befehl "OpenDiskFont" der Diskfont-Bibliothek 
benutzt. Er wird analog zu "OpenFont" aufgerufen, benötigt also 
ebenfalls eine "TextAttr"-Datenstruktur. 


Das folgende Programm macht es möglich, Disk-Fonts zu be- 
nutzen. Es ist als erster Test gedacht und entsprechend simpel 
gehalten. Damit dieses Programm laufen kann, bedarf es der 
Workbench-Diskette beziehungsweise der Zeichensätze darauf. 
Die Routine "OpenDiskFont" sucht den gewünschten Zeichensatz 
zunächst im eigenen Directory, danach im System-Directory 
FONTTS:. Sollten die Zeichensätze, die das Demo-Programm be- 
nutzt, nicht auf der Workbench-Diskette befinden, verändert 
sich der Zeichensatz nicht. 

HHHHHHHHHHHHHHHHHHHHHHRHHHHRHHHHHHHEHEEN 

'# 

'# Programm: Disk-Zeichensatz laden 

'# Datum: 10.4.87 


ı# Autor: tob 
ı# Version: 1.0 
4 


ER RREREHEEHEHUHRERHUHURTEREREHHR 
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ı Laedt einen beliebigen Disk-Zeichensatz (sog. Disk-Font) 
PRINT "Suche die .bmap-Dateien.. ." 


ıIDISKFONT-Bibliothek 
DECLARE FUNCTION OpenDiskFont& LIBRARY 


'GRAPHICS-Bibliothek 
ıCloseFfont() 
ISetFfont() 


LIBRARY "diskfont. Library" 
LIBRARY "graphics.Library"" 


demo: ı* Demonstriert Disk-Fonts! 
demo. 1$ = "DIAMOND 20 **%* diamond 20 "" 
demo.2$ = "SAPPHIRE 14 **%* sapphire 14 " 
font.alt& = PEEKL(WINDOW(8)+52) 
CLS 


FOR demo%=1 TO 5 
OeffneDiskZeichensatz "diamond! ,20 
FOR loop%=1 TO 5 

PRINT demo.1$; 
NEXT loop% 
PRINT 


ODeffneDiskZeichensatz "Sapphire", 14 
FOR loop%=1 TO 5 
PRINT demo.2$; 
NEXT Loop% 
PRINT 
NEXT demo% 


ı* normalen Zeichensatz aktivieren 
font.neu& = PEEKL(WINDOW(8)+52) 
CALL CloseFont(font.neu&) 

CALL SetFont(WINDOW(8), font.alt&) 


LIBRARY CLOSE 
END 


SUB OeffneDiskZeichensatz(n$,hoehe%) STATIC 
font.name$ = n$+".font"+CHR$(O0) 


font.hoehe% = hoehe% 

font.stil% =0 

font.prefs% = 0 

font.alt& = PEEKL(WINDOW(8)+52) 


ı* TextAttr-Struktur ausfuellen 
textAttr&(0) = SADD(Cfont.name$) 
textAttr&(1) = font.hoehe%*2"16+font.stil%*2"4+font.prefs% 
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ı* neuen Zeichensatz oeffnen 
font.neu& = OpenDiskFont&(VARPTR(textAttr&(0))) 
IF font.neu&<>0 THEN 
CALL CloseFfont(font.alt&) 
CALL SetFont(WINDOW(8), font.neu&) 
END IF 
END SUB 


Eines fällt auf: Nach jeder Textzeile der Demo fängt der Amiga 
von neuem an zu laden. Da jedesmal beim Umschalten des Zei- 
chensatzes der alte Schrifttyp aus dem RAM gelöscht wird, ist 
das nur logisch. Praktisch ist es jedoch nicht. Man kann sich 
helfen, indem eine Auswahl der häufig benutzten Zeichensätze 
geöffnet bleibt und erst am Schluß des Programms zusammen 
geschlossen wird. Zwei Dinge sind dabei wichtig: Alle von un- 
serem Programm geöffneten Typen müssen geschlossen werden. 
Des weiteren dürfen Schrifttypen nur einmal ins RAM geladen 
werden (sonst verschwenden wir kostbaren Speicherplatz). Nach 
diesem System arbeitet das folgende Programm. Es ist in der 
Lage, sowohl Disk- als auch ROM-Typen zu aktivieren und lädt 
Disk-Zeichensätze nur ein einziges Mal ein. Das beschleunigt die 
Programmabarbeitung ganz erheblich. Hier das Listing: 


HE HHHEEHHEEHHEEEHHHHEHHHR 
'# 

ı# Programm: Zeichensatz laden&halten 

'# Datum: 10.4.87 


'# Autor: tob 
ı# Version: 1.0 
'# 


RREERRRERHUHOHOHHERHEHHÜHBRHNEHEHHUN 


laedt Disk- und RAM/ROM-Zeichensaetze. Sobald ein neuer 
Zeichensatz geladen wird, schliesst das Programm den 

alten Zeichensatz NICHT, sondern nimmt ihn in eine Liste 
auf. Das naechste Mal, wenn dieser Zeichensatz geoeffnet 
werden soll, befindet er sich bereits im RAM-Speicher und 
erscheint sofort. Am Programmende werden dann alle Zeichen- 
saetze gleichzeitig geschlossen. 


PRINT "Suche die .bmap-Dateien..." 


'DISKFONT-Bibliothek 
DECLARE FUNCTION OpenDiskFont& LIBRARY 


'GRAPHICS-Bibliothek 
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DECLARE FUNCTION OpenFont& LIBRARY 
ıCloseFfont() 


ISetFont() 


LIBRARY "diskfont.lLibrary"" 
LIBRARY "graphics.Library" 


init: 


demo: 


'*% Speicherfeld dimensionieren 
DIM SHARED storage&(30) 'max. 30 versch. Typen 
CLS 


ı* Hier geht es los: 

LOCATE 3,1 

OeffneZeichensatz "Opal", 12 

PRINT "Arbeiten mit Amigas Zeichensaetzen! ! 
DeffneZeichensatz "Diamond", 12 


WHILE z$<>"!ende!" 
LINE INPUT "Name des Zeichensatzes: ";z$ 
IF z$<>"ende" THEN 
INPUT "Hoehe";h% 
OeffneZeichensatz z$,h% 
PRINT "Dies ist ";2$;", ";h%;" Punkte hoch." 
PRINT "Mit "ende! beenden! '"" 
PRINT "Geoeffnete Schrifttypen: ";zaehler% 
ODeffneZeichensatz "opal",12 
END IF 
WEND 


ı* normalen Zeichensatz aktivieren 
ı* alle anderen aus RAM entfernen 
SchliesseZeichensaetze 


LIBRARY CLOSE 
END 


SUB OeffneZeichensatz(n$,hoehe%) STATIC 


SHARED zaehler% ,modus%, font.original& 


IF modus% = 0 THEN 


modus% = 1 
font.original& = PEEKL(WINDOW(8)+52) 
END IF 


font.name$ = n$+".font"+CHR$(O) 


teil2$ = RIGHT$Cfont.name$,LEN(font.name$)-1) 
teil1% = ASC(LEFT$Cfont.name$,1)) 

teil1l% = teil1% OR 32 

font.name$ = CHR$Cteil1%)+teil2$ 

font.hoehe% = hoehe% 

font.stil% =0 
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font.prefs% = 0 


ı%* TextAttr-Struktur ausfuellen 
textAttr&(0) = SADDCfont.name$) 
textAttr&(1) = font.hoeheX*2"16+font.stil%*2"4+font.prefs% 


ı* neuer Zeichensatz im RAM? 
font .neu& = OpenFont&(VARPTR(textAttr&(0))) 
IF font.neu&<>0 THEN 
ı* ja, es ist ein Zeichensatz dieses Namens im RAM 
test .hoeheX=PEEKW( font .neu&+20) 
CALL CloseFont(font.neu&) 
IF test.hoehe%<>font.hoehe% THEN 
ı* aber er ist nicht so hoch wie der gesuchte, 
ı* also neuen suchen 
font.neu&=0 
END IF 
END IF 


ı* neuen Zeichensatz oeffnen 

IF font.neu& = 0 THEN 
ı* auf Disk nachschauen (letzte Chance...) 
font.neu& = OpenDiskFont&(VARPTR(textAttr&(0))) 
IF font.neu&<>0 THEN 


1% gefunden! 
zaehler% = zaehler%+1 
storage&(zaehler%) = font.neu& 
END IF 
END IF 


IF font.neu&<>0 THEN 
ı* ein neuer Zeichensatz soll aktiviert werden 
CALL SetFont(WINDOW(8), font.neu&) 
END IF 
END SUB 


SUB SchliesseZeichensaetze STATIC 
SHARED zaehler%, font.original& 


FOR loop%=1 TO zaehler% 
IF storage&(loop%)<>0 THEN 
CALL CloseFont(storage&(loop%)) 
ELSE 
ERROR 255 
END IF 
storage&(loop%) = NULL 
NEXT loop% 


CALL SetFont(WINDOW(8), font.original&) 
END SUB 
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Die Variablen zaehler% und modus% sind für die SUBs reser- 
viert und dürfen an keiner anderen Stelle im Programm verän- 
dert oder gelöscht werden. 


Mit Hilfe des SUBs "OeffneZeichensatz" läßt sich ein beliebiger 
Schrifttyp suchen: 


OeffneZeichensatz name$,hoehe% 


name$: Name des Zeichensatzes 
hoehe%: Höhe des Zeichensatzes 


Zunächst richtet das SUB eine Variable namens modus% ein. Ist 
modus%=0, dann bedeutet dies, daß noch kein alternativer Zei- 
chensatz geladen wurde. In diesem Fall initialisiert das Pro- 
gramm den Zeiger font.original&, der auf den Original-Zei- 
chensatz deutet. Mit Hilfe dieses Zeigers gelangt man nach eige- 
nen Experimenten immer wieder zurück zum alten Schrifttyp. 


Das SUB bereitet anschließend die TextAttr-Struktur vor. Mit 
Hilfe des Befehls UCASE$ wird der Name des gesuchten Zei- 
chensatzes ausschließlich in Großbuchstaben ausgedrückt. Die 
Routine ÖOpenFont behandelt Klein- und Großschrift nicht 
gleich, sondern unterscheidet dazwischen. Der im RAM befind- 
liche Zeichensatz "Diamond" könnte unter dem Namen "diamond" 
nicht gefunden werden. Aus diesem Grund werden die Namen 
der Zeichensätze grundsätzlich einheitlich geschrieben. 


Anschließend wird die Struktur initialisiert. Die Variable text- 
Attr& dient dabei als Speicherplatz. 


Jetzt wird geprüft, ob sich der gewünschte Zeichensatz bereits 
im RAM befindet. Dann müßte er nicht mehr von Diskette ge- 
laden werden. Falls die Routine "OpenFont" einen Zeiger zu- 
rückliefert, dann gibt es einen Zeichensatz mit dem von uns an- 
gegebenen Namen im Speicher. Es ist aber noch nichts über 
seine Höhe ausgesagt. Deshalb wird ın der Variablen test.hoehe% 
die Höhe des RAM-Zeichensatzes zum späteren Vergleich zwi- 
schengespeichert. Anschließend wird der RAM-Zeichensatz wie- 


296 ——————— Das neue Supergrafikbuch —— 


der via CloseFont geschlossen. Das ist wichtig und nötig aus fol- 
gender Erwägung: Gibt es den gewünschten Zeichensatz bereits, 
dann haben wir ihn schon einmal mittels "OpenDiskFont" geöff- 
net. Damit der Zugriffszähler nicht weiter erhöht wird, weil wir 
"OpenFont" benutzt haben, schließen wir diesen Zeichensatz um- 
gehend wieder. Dadurch wird der Zeichensatz nicht wirklich 
geschlossen, sondern lediglich unsere Zugriffseintragung für den 
"OpenFont"-Befehl eliminiert. Sollte der RAM-Zeichensatz hin- 
gegen nicht der gesuchte sein, muß er ohnehin geschlossen wer- 
den. 


Nun wird die Höhe des gefundenen Zeichensatzes mit unserer 
Wunschhöhe verglichen. Ist sie identisch, dann bleibt der Zeiger 
auf den RAM-Zeichensatz in font.neu& erhalten, ansonsten wird 
er gelöscht. 


Wurde er gelöscht, dann wird nun auf Diskette nach dem 
Schrifttyp gesucht. Wird er dort gefunden, dann lädt ihn "Open- 
DiskFont" ins RAM. Da ein gänzlich neuer Zeichensatz geladen 
wurde, muß er von uns am Programmende wieder gelöscht wer- 
den. Dazu wird die Adresse auf diesen Schriftsatz im Feld 
storage& gespeichert und der Zeiger erhöht. 


Zum Schluß wird der neue Zeichensatz aktiviert. Das geschieht 
nur, wenn font.neu& nicht O ist, was passiert, wenn der angege- 
bene Zeichensatz weder im RAM noch ım ROM noch auf Disk 
zu finden war. 


Am Schluß Ihres Programms muß der Aufruf "SchliesseZeichen- 
saetze" stehen. Er durchläuft das Feld storage& und ruft für alle 
dort eingetragenen Schriftsätze die Funktion "CloseFont" auf. 
Dadurch wird dem System kostbarer Speicherplatz zurückgege- 
ben. 


5.4 Das Zeichensatz-Menü 


Mit dem Wissen und den Programmen aus den vorangegangenen 
Kapiteln dürften Sie die Mittel besitzen, um mit den Amiga- 
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Zeichensätzen arbeiten zu können. Kommen wir deshalb zu einer 
lebensnahen Anwendung, die gleichzeitig einen gravierenden 
Nachteil beseitigt: Sie konnten bislang zwar Zeichensätze laden 
und benutzen, aber das funktionierte nur unter der Vorausset- 
zung, daß Sie über Namen und Höhe der gewünschten Schriftart 
Bescheid wußten. Unser nächstes Projekt: verschiedene Zei- 
chensätze per Menüwahl. 


Nun könnte man zwar die Namen aller vorhandenen Zeichen- 
sätze als DATAs in einem Programm ablegen, aber das würde 
wohl kaum sinnvoll sein: Es können immer Zeichensätze auf 
Diskette hinzukommen oder gelöscht werden. Aus diesem Grund 
gibt es die Funktion "AvailFonts" der Diskfont-Bibliothek. Diese 
Routine (AvailFonts = Available Fonts = verfügbare Zei- 
chensätze) sammelt für Sie eine Liste der momentan verfügbaren 
Zeichensätze zusammen. Der Aufruf der Routine sieht so aus: 


status%=AvailFonts%(buffer&,buflen&,modus%) 


buffer&: Adresse auf einen freien Speicherpuffer 
buflen&: Größe dieses Puffers 
modus%: 1=RAM/ROM 
2=DISK 
3=egal woher 
status%: O=alles ok 


ansonsten Anzahl der Bytes, um die der Puffer zu klein 
war 


In Abhängigkeit von der modus-Variablen füllt AvailFonts den 
Puffer folgendermaßen: 


Offset Typ Bezeichnung 


+ 000 Word Anzahl der nun folgenden Einträge 
(Die nächsten fünf Einträge wiederholen sich Anzahl-mal) 


+ 002 Word ID (1=RAM/ROM, 2=Disk) 


+ 004 Long Zeiger auf Namensstring 
+ 008 Word Höhe des Zeichensatzes 
+ 010 Byte Stil-Bits 


+ 011 Byte Preferences 
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Damit liefert die AvailFonts-Routine also die TextAttr-Struktu- 
ren für sämtliche gefundenen Zeichensätze bereits mit. 


Das folgende Programm liefert das SUB "GeneriereMenue". 





'# 

ı# Programm: Menuegesteuerter Zeichensatz 
'# Datum: 10.4.87 

ı# Autor: tob 

ı# Version: 1.0 

'# 





DILIKEL SZ 


ı baut automatisch ein Menue aus allen verfuegbaren 
ı Zeichensaetzen und kontrolliert dann das Menue. 


PRINT "Suche die .bmap-Dateien..."' 


ı!EXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 
ıFreeMem( ) 


'DISKFONT-Bibliothek 
DECLARE FUNCTION OpenDiskFont& LIBRARY 
DECLARE FUNCTION AvailFonts% LIBRARY 


ıGRAPHICS-Bibliothek 

DECLARE FUNCTION OpenFont& LIBRARY 
ıCloseFont() 

'SetFont() 


LIBRARY "diskfont.Library" 
LIBRARY "graphics.Library" 
LIBRARY "exec.Library" 


init: ı* Speicherfeld dimensionieren 
DIM SHARED storage&(30) "max. 30 versch. Typen 
DIM SHARED font.titel$(19) 
DIM SHARED font.hoehe%( 19) 
CLS 


demo: ı* Hier geht es los: 
MENU 5,0,1,"Zeichensaetze" 
MENU 5,1,1,"Laden! 
MENU 6,0,1,'Service" 
MENU 6,1,1,"Quit" 


menu.alt% = 1 
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ON MENU GOSUB menucheck 
MENU ON 


PRINT "Das Menue steht nun zur Verfuegung." 


PRINT "Waehlen Sie einen Zeichensatz Ihrer Wahl," 
PRINT "bzw. 'LADEN', um das Menue zu erstellen." 


WHILE forever=forever 
WEND 
menucheck: !'* Menue-Handling 


menuld 
menultem 


MENU(O) 
MENUC1) 


IF menuld=5 THEN 
IF menu.alt%=1 THEN 


menu.alt% = 0 
menu.nr% = 5 
modeALL%X = 3 


GeneriereMenue menu.nr% ,modeALL% 
PRINT "Menue ist bereit!" 

ELSE 
ft$ 
fh% 


font.titel$(menultem-1) 
font.hoehe%(menultem-1) 


OeffneZeichensatz ft$,fh% 
END IF 
ELSEIF menuld=6 THEN 
GOTO ende 
END IF 


GOSUB ShowText 
RETURN 


ShowText: '* Text ausgeben 
PRINT ft$;fh%;" Punkt - TEXTBEISPIEL *** textbeispiel" 
RETURN 


ende: ı%* normalen Zeichensatz aktivieren 
ı* alle anderen aus RAM entfernen 
SchliesseZeichensaetze 


LIBRARY CLOSE 
END 


SUB GeneriereMenue(menu.nr%,modus%) STATIC 
mem.opt& = 2°0+2°16 
buffer.groesse& = 3000 
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buffer .add& = AllocMem&(buffer.groesse&,mem.opt&) 
IF buffer.add&<>0 THEN 
status“ = AvailFonts%(buffer.add&,buffer.groesse& ‚modus%) 
IF status% = 0 THEN 
eintrag% = PEEKW(buffer.add&) 
IF eintrag%>19 THEN eintrag%=19 
FOR loop% = 0 TO eintragX-1 


counter‘ = loop%*10 

font.name& = PEEKL(buffer.add&+4+counter%) 

font.hoehe% = PEEKW(buffer.add&+8+counter‘%) 

font.name$ = "ı 

check% = PEEK(font.name&) 

WHILE check%<>ASC(".") 
font.name$ = font.name$+CHR$(check%) 
font.name& = font.name&+1 
check% = PEEK(font.name&) 

WEND 

font.titel$(loop%) = font.name$ 

font.hoehe%( loop%) = font.hoehe% 

menu.name$ = UCASE$C font .name$+STR$(Cfont.hoehe%) ) 

MENU CSNG(menu.nr%) ,CSNG( loop%+1),1,menu.name$ 

NEXT loop% 
CALL FreeMem(buffer.add&,buffer.groesse&) 
END IF 
ELSE 
BEEP 
END IF 


END SUB 


SUB OeffneZeichensatz(n$,hoehe%) STATIC 
SHARED zaehler% ,modus%, font.original® 


IF modus%=0 THEN 


modus% = 
font.original& = PEEKL(WINDOW(8)+52) 
END IF 
font.name$ = n$+".font"+CHR$(O) 
teil2$ = RIGHT$Cfont.name$,LENCfont.name$)-1) 
teil1% = ASC(LEFT$Cfont.name$,1)) 
teil1% = teil1% OR 32 
font.hoehe% = hoeheX% 
font.stil% = 0 
font.prefs% = 0 


ı* TextAttr-Struktur ausfuellen 
textAttr&(0) = SADD(Cfont.name$) 
textAttr&(1) = font.hoehe%*2"16+font.stil%*2"4+font.prefs% 


'* neuer Zeichensatz im RAM? 
font.neu& = OpenFont&(VARPTR(textAttr&(0))) 
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IF font.neu&<>0 THEN 
ı* ja, es ist ein Zeichensatz dieses Namens im RAM 
test.hoehe% = PEEKW( font.neu&+20) 
CALL CloseFont(font.neu&) | 
IF test.hoehe%<>font.hoehe% THEN 
ı* aber er ist nicht so hoch wie der gesuchte, 
ı* also neuen suchen 
font.neu& = 0 
END IF 
END IF 


ı* neuen Zeichensatz oeffnen 

IF font.neu& = 0 THEN 
ı* auf Disk nachschauen (letzte Chance...) 
font.neu& = OpenDiskFont&(VARPTR(textAttr&(0))) 
IF font.neu&<>0 THEN 


ı* gefunden! 
zaehler% = zaehler%+1 
storage&(zaehler%) = font.neu& 
END IF 
END IF 


IF font.neu&<>0 THEN 
ı* ein neuer Zeichensatz soll aktiviert werden 
CALL SetFont(WINDOW(8), font.neu&) 
END IF 
END SUB 


SUB SchliesseZeichensaetze STATIC 
SHARED zaehler%, font.original& 


FOR loop%=1 TO zaehler% 
IF storage&(loop%)<>0 THEN 
CALL CloseFont(storage&(1loop%)) 
ELSE 
ERROR 255 
END IF 
storage&(loop%) = NULL 
NEXT Loop% 


IF font.original&<>0 THEN 
CALL SetFont(WINDOW(8), font.original&) 


END IF 
END SUB 


Der Aufruf dieses Unterprogramms sieht so aus: 


GeneriereMenue menue.nr% modus% 


menue.nr%: Nummer des zu generierenden Menues 
modus%: 1 = RAM/ROM Zeichensätze 
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2 = Disk Zeichensätze 
3 = Alle Zeichensätze 


Nach dem Aufruf dieses SUBs passieren zwei Dinge: 


a) Ein Menü wird eingerichtet. In ihm finden sich die Namen 
und die Höhen aller - im Rahmen der von modus% gege- 
benen Grenzen - verfügbaren Zeichensätze inclusive ihrer 
Y-Abmessungen. 


b) Zwei Datenfelder werden initialisiert: font.title$ enthält die 
Namen der Zeichensätze, font.hoehe% ihre Y-Abmessun- 
gen. | 


Über das Menü kann der Anwender nun einen der verfügbaren 
Zeichensätze auswählen. Er braucht nun nicht mehr genau da- 
rüber Bescheid zu wissen, welche Schrifttypen sich auf der Dis- 
kette befinden. Hat der Anwender seine Wahl getroffen, dann 
können Name und Höhe des ausgewählten Zeichensatzes direkt 
dem Variablenfeld entnommen und unserer altbekannten Routine 
"OeffneZeichensatz" übergeben werden. Diese regelt dann alles 
Weitere. 


5.5 Der selbstdefinierte Zeichensatz 


Sie haben nun zur Genüge mit den Amiga-eigenen Zeichensät- 
zen Vorlieb nehmen müssen. Wir wollen uns jetzt dem letzten 
(und schwierigsten) Teil zuwenden: der Definition einer völlig 
individuellen Schriftart. 


Dazu ist es nötig, daß Sie genau über den Aufbau eines Zei- 
chensatzes Bescheid wissen. Am Anfang dieses Kapitels hatten 
Sie bereits das Vergnügen mit einer Datenstruktur namens 
"TextFont". Bei ihr handelt es sich um das Herzstück eines jeden 
Zeichensatzes. Bevor wir uns näher mit dieser Struktur beschäf- 
tigen, hier einige generelle Besonderheiten eines Amiga-Zei- 
chensatzes. 
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Es gibt zwei grundsätzlich verschiedene Zeichensatzarten auf 
dem Amiga: 


a) Normalschrift-Zeichensatz 
b) _Proportionalschrift-Zeichensatz 


Während die Zeichen in einem Normalschrift-Zeichensatz (NZ) 
über sowohl einheitliche Höhe als auch Breite verfügen, können 
die Zeichen in einem Proportionalschrift-Zeichensatz (PZ) bei 
einheitlicher Höhe eine völlig individuelle Breite aufweisen. 


Zur Definition eines Zeichensatzes sind demnach maximal vier 
Speicherblöcke notwendig: 


charData 
charLoc 
charSpace 
charKern 


"charData" enthält die eigentliche Definition der Zeichen des 
Zeichensatzes. Dabei handelt es sich um sogenannte "bit-packed" 
Zeicheninformationen: Da die Zeichen eines Amiga eine von Ih- 
nen gewählte Anzahl von Punkten breit sein können, wäre es 
unsinnig, die Daten eines jeden Zeichens in mehr oder weniger 
vielen Bytes abzuspeichern. Vielmehr speichert der Amiga die 

Zeichendaten folgendermaßen ab: 


Gehen wir von diesen beiden Zeichen aus, wobei ein "." einen 
ungesetzten und ein "*" einen gesetzten Punkt repräsentiert: 


ee see RRRR 

“r* *..* 
a Ka 
at KERK 
Wr “.* 
* ws... .—.... * “, * 
* * Krk 


Diese beiden Zeichen weisen eine unterschiedliche Breite auf 
und könnten also einem PZ entsprechen. Der Amiga reiht nun 
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jeweils eine Bit-Zeile aller Zeichen des Zeichensatzes aneinan- 
der. Würde unser Zeichensatz nur die beiden Zeichen beinhalten, 
sähe "CharData" so aus: 


® Zeile: 6 ac 


1 

2. Zeile: BE SPEER BON. 
3. Zeile: We 
4. Zeile: Wien TUE 
5 = Zei le: RREUKRKERKEN a „* 
6. Zeile: RE NN “r,.%* 
7. Zeile: Were WERK, 


Die einzelnen Zeilen werden dann selbstverständlich direkt hin- 
tereinander in den Speicherblock geschrieben: 


charData: TU MUT TFT FF . € etc. 


Diese Speichermethode ist zwar recht effizient, aber hat ein Pro- 
blem: Wie bekommt man aus den Bits wieder Zeichen? Dazu 
gibt es den Speicherblock namens "charLoc". Für jedes Zeichen 
des Zeichensatzes finden sich dort zwei Words (also zwei Zwei- 
Byte-Felder). Das erste enthält die Anzahl der Bits vom Anfang 
einer Datenzeile bis zu den Bit-Informationen für das Zeichen, 
das zweite enthält die Anzahl der Bits für das Zeichen. Für die 
zwei Zeichen unseres Beispielzeichensatzes sıeht das so aus: 


charLoc: 0,9, 9,5 


Das erste Zeichen beginnt 0 Bits vom Anfang einer Datenzeile 
und ıst 9 Bits (entspricht Punkten) breit. Das zweite Zeichen be- 
ginnt 9 Bits nach dem Anfang der Datenzeile und ıst 5 Bits 
breit. Diese Definition gilt für alle sieben Zeilen unserer Zei- 
chen. 


Ein weiteres Problem: Wie kommt man von einer charData-Da- 
tenzeile zur nächsten? Dazu gibt es das Feld "Modulo" innerhalb 
der "TextFont"-Struktur. Hier finden Sie die Anzahl der Bytes, 
die eine Datenzeile lang ist. Indem Sie diesen Wert zur Adresse 
der augenblicklichen Datenzeile addieren, kommen Sie zur 
nächsten. 
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Das Datenfeld charData enthält lediglich die blanken Informa- 
tionen eines jeweiligen Zeichens. So sollen die Zeichen aber 
meist nicht auf den Bildschirm ausgegeben werden, sondern mit 
einem Abstand von einem oder einigen Punkten zum nächsten 
Zeichen. Deshalb enthält das Feld "charSpace" in einem Word für 
jedes Zeichen die tatsächliche Breite in Punkten. Wieder unser 
Beispiel: 


charSpace: 11,7 
Das erste Zeichen soll 11 Punkte breit sein, das zweite 7. 


Nun bleibt ein letztes Problem: charSpace setzt die Breite eines 
Zeichens fest. Für das erste Zeichen sind das in unserem Bei- 
spiel 11 Punkte: 


Das Zeichen selbst ist aber lediglich neun Punkte breit. Es ist 
also (noch) offen, an welcher Position dieses Feldes das eigent- 
liche Zeichen beginnen soll. Dazu gibt es den Block "charKern". 
Er enthält für jedes Zeichen im Zeichensatz ein Word mit der 
Anzahl der Bits, die vom linken Rand des obigen Feldes verge- 
hen sollen, bis das eigentliche Zeichen ausgegeben wird. Wieder 
für unser Beispiel: 


charkern: 1,2 


Damit sehen unsere Zeichen auf dem Bildschirm so aus: 


* Ka 
ee enieiee 
*%* “ 

[| et nen 
ann m... We 

* * Kr 
.u.u saas098  ®_0 . 
WE ee 
% * “ x 
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Space=sIl Space=7 
Kern=] Kern=2 
Breite-9 Breite=5 


5.5.1 Auslesen des Zeichengenerators 


Mit diesem Wissen können wir bereits einen bestehenden Zei- 
chensatz "auslesen". Darunter versteht man das Ausfiltern der 
Daten für ein bestimmtes Zeichen, das dann auf den Bildschirm 
gebracht werden kann. 


Die Adresse auf die "TextFont"-Struktur des augenblicklich ge- 
öffneten Zeichensatzes findet sich im Rastport: 


font&=PEEKL(WINDOW(8)+52) 


Dort finden sich die gesuchten Zeiger auf die entsprechenden 
Speicherblöcke (siehe Kapitel 5.1. Hier zunächst das 
Ausleseprogramm: 


I EEHHEEEEEEHHEEEHHHHEEEEHHHEEGHN 
'# 

'# Programm: Zeichensatz auslesen 

'# Datum: 11.4.87 

'# Autor: tob 

'# Version: 1.0 

'# 


GHHHHHHHHHHEIHHHHETHHHHIHHHHEHHIHIHIHFTEEEEEHERE 

ı Liest den gerade aktiven Zeichensatz aus und stellt 
ı die decodierten Informationen in verschiedenen Ver- 
ı groesserungsstufen dar. 

PRINT "Suche die .bmap-Dateien..." 
'GRAPHICS-Bibliothek 

DECLARE FUNCTION OpenFont& LIBRARY 


!SetFont() 
ıCloseFont() 


LIBRARY "graphics.library" 


init: ı* Variable 
DIM SHARED zeichen$(256) 
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9% = 12 "'Kaestchengroesse 
CLS 


FOR demo%=32 TO 255 
Matrix demo% 
CLS 
TopazEIN 
PRINT "Zeichen: ASCII ";demo%;" = ";CHR$(demo%) 
FOR show% = 1 TO hoehe% 
LOCATE show%+2, 1 
PRINT zeichen$(show%) 
FOR ex% = 1 TO LEN(zeichen$(show%)) 
z$ = MID$(zeichen$(show%) ,ex%, 1) 
IF z$ = !*u THEN 
farbe% = 2 
ELSEIF z$ = "." THEN 
farbe% = 1 
ELSEIF z$ = "," THEN 
farbeX = 3 
END IF 
LINE (300+ex%*g%, show%*g%) (300+exX%*g%+g%, show%*g%+g%), 
farbe%,bf 
LINE (500+ex%*2,show%*2)(500+ex%*2+2,show%*2+2), 
farbe%,bf 
NEXT ex% 
NEXT show% 
TopazAUS 
NEXT demo% 


END 


SUB Matrix(code%) STATIC 
SHARED hoehe% 


f.1% =0 

f.2% =0 

font& = PEEKL(WINDOW(C8)+52) 
charData& = PEEKL(font&+34) 
charLoc& = PEEKL(font&+40) 
charSpace& = PEEKL(font&+44) 
charkern& = PEEKL(font&+48) 
modul 0% = PEEKW( font&+38) 
IF charSpace& = O0 THEN f.1%=1 
IF charkern& = 0 THEN f.2%=1 
hoehe% = PEEKWCfont&+20) 
loASCIIX = PEEK(font&+32) 
hiASCIIX = PEEK(Cfont&+33) 


IF code%<loASCII% OR code%>hiASCII% THEN 
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PRINT "ASCII-Code";code%;'"' nicht im Zeichensatz" 
END IF 


ı* Decodierungsinformationen 


offset% = code%-loASCII% 

offset.bit& = PEEKW(charLoc&+4*offset%) 
offset.byte% = INT(offset.bit&/8) 
offset.bit% = offset.bit&-(8*offset.byte%) 
zeichen.breite% = PEEKW(charLoc&+4*offset%+2) 


IF f.1% = O THEN 

zeichen. space%=PEEKW(charSpace&+2*offset%) 
END IF 
IF f.2% = O0 THEN 

zeichen.kern% = PEEKW(charKern&+2*offset%) 


END IF 

ı* Auslesen 

FOR loop1% = 1 TO hoehe% 
zeichen$(loop1%) = "" 


IF f.2% = O0 THEN 
IF zeichen.kern%>0 THEN | 
zeichen$( loop1%)=STRING$(Czeichen.kern%, "," 
END IF 
END IF 
linedata& = PEEK(charData&t+toffset.byte%) 
zaehler% = 7-offset.bit% 
FOR loop2% = 1 TO zeichen.breite% 
IF (linedata& AND 2° zaehler%)<>0 THEN 


Linedata& = lLinedata&-2”zaehler% 
zeichen$(loop1%) = zeichen$(loop1%)+"*" 
ELSE 
zeichen$(loop1%) = zeichen$(loop1%)+!"." 
END IF 
zaehler‘% = zaehler%-1 
IF zaehler%<O THEN 
offset.long% = offset.long%+1 
Linedata& = PEEK(charData&toffset.byte%+ 
offset. long%) 
zaehler% =7 
END IF 
NEXT loop2% 
offset.long% = O0 
charData& = charData&+modul 0% 


IF f.2%=0 THEN 
zeichen.diff% = zeichen.space%-zeichen.breite%zeichen. 
kern% 
ELSEIF f.2%=0 THEN 
zeichen.diff% = zeichen.space%-zeichen.breite% 
END IF 
IF zeichen.diff%>0 THEN 
zeichen$( loop1%)=zeichen$( loop1%)+STRING$(Czeichen. 
diff%,",") 
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END IF 
NEXT Loop1% 
END SUB 


SUB TopazEIN STATIC 
SHARED font&, font.alt& 


font$ = !!topaz.font''+CHR$(0) 
textAttr&(0) = SADDCfont$) 

font.alt& = PEEKL(WINDOW(8)+52) 

font& = OpenFfont&(VARPTRCtextAttr&(0))) 


CALL SetFont(WINDOW(8), font&) 
END SUB 


SUB TopazAUS STATIC 

SHARED font&, font.alt& 

CALL CloseFfont(font&) 

CALL SetFont(WINDOW(8), font.alt&) 
END SUB 


Das Programm liest den augenblicklich aktiven Zeichensatz aus. 
Das wird in den meisten Fällen einer der beiden ROM-Schrift- 
typen sein. Wenn Sie wirklich etwas Interessantes beobachten 
wollen, sollten Sie zuvor einen der Disk-Schrifttypen, zum Bei- 
spiel "sapphire", laden. 


Alle erreichbaren Zeichen des Zeichensatzes werden nun drei- 
fach auf dem Bildschirm dargestellt: In normaler Bildschirmdar- 
stellung ("*" und ".") sowie als große und kleine Grafik. 


Die Grafiken sind mehrfarbig, es kommen insgesamt drei Farben 
zum Einsatz: Die durch die in charData liegenden Daten defi- 
nierte Fläche ist weiß, alle gesetzten Punkte sind schwarz. Die 
durch charSpace und charKern zusätzlich definierte Fläche er- 
scheint orangefarben. Bei NZs wird diese Farbe allerdings nicht 
auftreten, denn es gibt charSpace und charKern bei ihnen nicht. 


Zum Programm: 


Herzstück ist das SUB "Matrix". Es erledigt die schwierige Auf- 
gabe des Auslesens und kann von Ihnen natürlich auch für an- 
dere Zwecke übernommen werden. Hier der Aufruf: 
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Matrix ascii.code% 
ascii.code%: ASCII-Code des Zeichens (0-255) 


bzw. 


Matrix CINTCASC(z$)) 
2$: das gewünschte Zeichen 


Außerdem finden Sie die beiden SUBs "TopazEIN" und "Topaz- 
AUS". Sie schalten jeweils den Systemzeichensatz bzw. den ehe- 
mals aktiven Zeichensatz ein. Dadurch können während des 
Auslesevorgangs Kommentare auf den Bildschirm gedruckt wer- 
den, die unabhängig vom gerade aktiven (und ausgelesenen) 
Zeichensatz lesbar bleiben. 


Die Funktionsweise des Matrix-SUBs bedarf vermutlich nicht 
der weiteren Erklärung. Die Grundlagen finden Sie in Kapitel 
9.9. 


5.5.2 BigText: Text vergrößern! 


Wie vielseitig die Ausleseroutine "Matrix" des vorangegangenen 
Beispiels ist, zeigt diese Anwendung. Mit ihrer Hilfe funktio- 
niert das SUB "BigText", mit dem Sie Text ın einer beliebigen 
Vergrößerung auf den Bildschirm zeichnen können. 


Hier der Aufruf: 


BigText text$,groesse% ‚farbe% 


text$: Auszugebender Text 
groesse%: Vergrößerungsfaktor (1-...) 
farbe%: Textfarbe 


EEE TEIHEHIHIHIHHHHHHFHHTFTETER 
ı# 

ı# Programm: Text vergroessern 

'# Datum: 11.4.87 
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ı# Autor: tob 

ı# Version: 1.0 

ıf 

IHRER THEHIHHIHIHTHIHTHIHIHIHIHTHIFIHIHEH HH 


ı vergroessert jeden beliebigen Text. Der Text wird in der 
ı Schriftart des augenblicklich aktiven Zeichensatzes ver- 
' groessert. 


init: '* Variable 
DIM SHARED zeichen$(256) 
BigText "Hallo", 15,2 
BigText "Commodore AMIGA",4,3 
LOCATE 3,1 
BigText "klein",1,1 
BigText "groesser",2,1 
BigText "noch groesser!",3,1 
BigText "GIGANTISCH!", 8,3 
END 


SUB BigText(text$,groesse%, farbe%) STATIC 
SHARED hoehe%, zeichen.kern%, zeichen.breite% 
SHARED zeichen.space% 


0.X0% = O0 

2z.x% = PEEKWCWINDOW(8)+58) 
z.y% = PEEKW(WINDOW(8)+58) 
y% = CSRLIN*z.y% 

x% = POS(0)*z.x% 


FOR loop1%=1 TO LEN(text$) 
z$ = MID$Ctext$, Loop1%, 1) 
Matrix CINT(CASC(z$)) 
0.X0% = 0.x0%+zeichen.kern%*groesse% 
FOR loop2%=1 TO hoehe% 
FOR loop3%=1 TO LEN(zeichen$(loop2%)) 
m$=MID$(zeichen$( loop2%) , Loop3%, 1) 
IF m$="*" THEN 
0.x% = x%+0.xX0%+l00p3%*groesse% 
0.y% = y%+loop2%*groesse% 
LINE (0.x%,0.y%)(0.x%+groesse%,0.y%+groesse%), 
farbe%,bf 
END IF 
NEXT Loop3% 
NEXT loop2% 
rest% = zeichen.space%-zeichen.breite%-zeichen.kern% 
IF rest%<O THEN rest%=0 
0.X0% = 0.xX0%+zeichen.breite%*groesse%+trest%*groesseX 
NEXT Lloop1% 
PRINT 
END SUB 
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SUB Matrix(Ccode%) STATIC 
SHARED hoehe%, zeichen.kern%, zeichen.breite% 
SHARED zeichen.space% 


f.1% =0 

f.2% =0 

font& = PEEKL(WINDOW(8)+52) 
charData& = PEEKL(font&+34) 
charLoc& = PEEKL(font&+40) 
charSpace& = PEEKL(font&+44) 
charKkern& = PEEKL(font&+48) 
modul 0% = PEEKW( font&+38) 


IF charSpace& = 0 THEN f.1%=1 
IF charkern& = 0 THEN f.2%=1 


hoehe% = PEEKWCfont&+20) 


LoASCIIX = PEEK(font&+32) 
hiASCII%X = PEEK(Cfont&+33) 


IF code%<loASCII%X OR code%>hiASCII% THEN 
PRINT "ASCII-Code";code%;" nicht im Zeichensatz" 
END IF 


1% Decodierungsinformationen 


offset% = code%-loASCIIX 
offset.bit& = PEEKW(charLoc&k+4*offset%) 
offset.byte% = INT(offset.bit&/8) 
offset.bit% = offset.bit&-(8*offset.byte%) 
zeichen.breite%=PEEKW(charLoc&t+4*offset%r2) 
z.b% = zeichen.breite% 
IF f.1% = O0 THEN 
zeichen.space‘% = PEEKW(charSpace&+2*offset%) 
z.b% = zeichen.space% 
END IF 


IF f.2% = 0 THEN 
zeichen.kern% 
END IF 


PEEKW(charKern&+2*offset%) 


ı* Auslesen 
FOR loop1% = 1 TO hoehe% 
zeichen$(loopi%) = "" 
IF f.2% = 0 THEN 
IF zeichen.kern%>0 THEN 
zeichen$( loop1%)=STRING$Czeichen.kern%, ",") 


END IF 
END IF 
Linedata& = PEEK(charData&toffset.byte%) 
zaehler% = 7-offset.bit% 
FOR loop2% = 1 TO zeichen.breite% 


IF (linedata& AND 2°zaehler%)<>O THEN 
Linedata& = linedata&-2”zaehler‘% 
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zeichen$(loop1%) = zeichen$( loop1%)+"*" 
ELSE 
zeichen$(loop1%) = zeichen$( loop1%)+"." 
END IF 
zaehler% = zaehler‘%-1 
IF zaehler%<O THEN 
offset.long% = offset.long%+1 
Linedata& PEEK(charData&toffset.byte%+offset. 


Long%) 


zaehler% 7 


END IF 
NEXT Loop2% 
offset.longd = 0 
charData& = charData&+modul 0% 
IF f.2% = O0 THEN 
zeichen.diff% = zeichen.space%-zeichen.breite%zeichen. 
kern% 
ELSEIF f.2%=0 THEN 
zeichen.diff% = zeichen.space%-zeichen.breite% 
END IF 
IF zeichen.diff%>0 THEN 
zeichen$(loop1%) = zeichen$(loop1%)+STRING$ (zeichen. 
diff%,",") 
END IF 
NEXT Loop1% 
END SUB 


Die Matrix-Routine muß übrigens leicht abgeändert werden: Die 
SHARED-Anweisung zu Anfang des SUBs wird um einige Para- 
meter erweitert, die das SUB "BigText" unbedingt benötigt, um 
den Text richtig zu plazieren. 


5.5.3 Ein Fixed-Width-Zeichengenerator 


Nachdem Sie sich mit den Zeigern und den Inhalten eines Zei- 
chensatzes vertraut gemacht haben, ist es nun an der Zeit, unser 
Hauptprojekt in Angriff zu nehmen: der eigene Zeichengenera- 
tor. 


Sie haben inzwischen gesehen, welche Mühe es macht, einen 
Proportional-Zeichensatz zu definieren und auch zu handhaben. 
Deshalb ist unser erster Zeichengenerator ein "Fixed-Width"-Ge- 
nerator, er generiert also einen NZ mit Zeichen einheitlicher 
Breite. 
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Wir gehen in der Vereinfachung sogar noch einen Schritt weiter: 
In Anlehnung an den ROM-Schriftsatz "topaz 8" werden auch 
unsere Zeichen eine festgelegte Größe von 8x8 Punkten haben. 
Dadurch lassen sie sich leicht speichern und handhaben, denn 
bei dieser Größe liegen die Zeichendaten in charData auf Byte- 
offsets. 


Bevor wir ins Detail gehen, zunächst das Programmlisting: 


GHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEEER 
'# 

ı# Programm: Fixed-Width Zeicheneenerator 
'# Datum: 12.4.87 

'# Autor: tob 

'# Version: 1.0 

'# 

EEE EEEIEEIEIEIEEIHTETHIHTHRTEHHHTHTHIHTHIHTHTFHER 


Dieses Programm ermoeglicht die Erstellung beliebig 

vieler verschiedener Zeichensaetze. Jedes Zeichen besitzt 
eine feste Groesse von 8x8 Punkten. Jedes Zeichen kann 

nach Belieben definiert werden. Alle undefinierten Zeichen 
entstammen dem ROM-Standard-Zeichensatz "topaz 8". Alle 
nicht im Zeichensatz enthaltenen Zeichen werden durch das 
sogenannte "unprintable Character"-Symbol dargestellt; hier 
ein "TW". 


'GRAPHICS-Bibliothek 

DECLARE FUNCTION OpenFont& LIBRARY 
ıCloseFont() 

I!SetFont() 

'AddFont() 


'EXEC-Bibliothek 

DECLARE FUNCTION AllocMem& LIBRARY 
'FreeMem( ) 

'CopyMem( ) 


LIBRARY "graphics.Llibrary" 
LIBRARY "exec.Library" 


init: ı* Zeichensatz generieren 
ı* Aufruf: 
ı* SchaffeZeichensatz "name" asciiLo%,asciiHi% 


SchaffeZeichensatz "tobi",22,201 
SchaffeZeichensatz "ralfi",60,122 


ı* Aufruf: 
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ı* AktiviereZeichensatz "name" 
AktiviereZeichensatz "tobi" 


ı* Neues Zeichen definieren 

ı* Aufruf: 

I* NeubD "zeichen", zeile%, "definition" 

ı* zeile%: 0...7 definition: *=gesetzter Punkt 


NeuD "AN O,"uuun. nn 
Neub "AU, 1,"..... N 
NeuD "au 2,0... er, 
NeuDb "au 3,0. rk, 
Neub "au 4, N, ira u 
Neud nu 5 U 0006 # 
NeuD "Al 6 uhr, ka 
Neub "au, 7, vu 


AktiviereZeichensatz "ralfi" 

ı*% zweites Zeichen nach Byte-Methode (schneller) 
Neuß "a" ,0,126 

NeuB "a",1,129 

NeuB "a" ,2,157 

NeuB "a",3,161 

Neuß "A" ,4,161 

NeuB "a" ,5,157 

Neuß "A",6,129 

Neuß "a" ,7,126 


'* Beispieltext 

AktiviereZeichensatz "tobi" 

PRINT "a 1987 by Data Becker's Amiga Grafik-Buch" 
PRINT TAB(25) """ 

AktiviereZeichensatz "ralfi" | 

PRINT "a 1987 by Data Becker's Amiga Grafik-Buch" 
PRINT ""u 


ı% Zeichensatz loeschen 
ı* Aufruf: 
ı* LoeschZeichensatz "name!" 


LoeschZeichensatz "tobi" 
LoeschZeichensatz "ralfi" 
END 


SUB AktiviereZeichensatz(z.n$) STATIC 


z.name$ = UCASE$(z.n$+". font"+CHR$CO0)) 
t&(0) = SADD(z.name$) 

t&(1) = 8*2°16 

font& = OpenFont&(VARPTR(t&(C0))) 

IF font& = 0 THEN BEEP:EXIT SUB 


CALL CloseFont(font&) 
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CALL SetFont(WINDOW(8), font&) 


END SUB 
SUB Neuß(zeichen$, zeile%,wert%) STATIC 
n.font& : = PEEKL(WINDOW(8)+52) 
n.data& = PEEKL(n. font&+34) 
n.ascii% = ASC(zeichen$) 
n.lo% = PEEK(n. font&+32) 
n.hi% = PEEK(n. font&+33) 
n.modulo% = PEEKW(n.font&+38) 
n.offset% = (n.ascii%-n.Lo%)+zeile%*n.modul 0% 
n.dataX = 0 


IF n.ascii%<n.lo% OR n.ascii%>n.hi% THEN 
PRINT "Zeichen nicht im Zeichensatz!" 


ERROR 255 
END IF 
POKE n.data&tn.offset%,wert% 
END SUB 
SUB Neußd(zeichen$, zeile%,bit$) STATIC 
n.font& = PEEKL(WINDOW(8)+52) 
n.data& = PEEKL(n. font&+34) 
n.ascii% = ASC(zeichen$) 
n.1lo% = PEEK(n.font&+32) 
n.hi% = PEEK(n.font&+33) 
n.modulo% = PEEKW(n. font&+38) 
n.offset% = (n.ascii%-n.Llo%)+zeile%*n.modul 0% 
n.dataX% = 0 


IF n.ascii%<n.1Lo% OR n.ascii%>n.hi% THEN 
PRINT "Zeichen nicht im Zeichensatz!" 
ERROR 255 

END IF 


ı* 8 Bit Alignment 
IF LENCbit$)<>8 THEN 
IF LEN(Cbit$)>8 THEN bit$ 
IF LENCbit$)<8 THEN bit$ 
END IF 


LEFT$Cbit$,8) 
bit$+soace$(8-LEN(bit$)) 


ı* Daten in charData schreiben 
FOR loop1%=7 TO O0 STEP -1 
n.check$ = MID$(bit$,8-Loop1%,1) 
IF n.check$="*" THEN 
n.data%X = n.data%+2” loop1% 
END IF 
NEXT Loop1% 
POKE n.data&+n.offset%,n.data% 
END SUB 
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SUB LoeschZeichensatz(z.n$) STATIC 


z.name$ = UCASE$(zZ.n$+". font"+CHR$C0O)) 
t&(0) = SADD(z.name$) 

t&(1) = 8*2°16 

font& = OpenFont&(VARPTR(t&(0))) 


IF font&=0 THEN ERROR 255 


z.groesse& = PEEKL(font&-4) 
IF z.groesse&<100 OR z.groesse&>4000 THEN ERROR 255 


'* aus System-Liste entfernen 
z.1& = PEEKL(font&) - 

z.2& = PEEKL(font&+4) 

POKEL z.1&+4 ,z.2& 

POKEL z.2&,2.1& 


ı* RAM freigeben 
font& = font&-4 
CALL FreeMem(font&,z.groesse®&) 


ı* Standard Zeichensatz laden 
standard$ = "topaz.font'"+CHR$(O0) 
t&(0) SADD(standard$) 
font& OpenFont&(VARPTR(t&(0))) 
IF font& 0 THEN ERROR 255 
CALL SetFont(WINDOW(8), font&) 

END SUB 


SUB SchaffeZeichensatz(z.n$,ascii.lo%,ascii.hi%) STATIC 
z.name$ = UCASE$(CZ.n$+". font"'+CHR$(O)) 
z.anzahl% = ascii.hi%-ascii.lo%+2 
z.modulo% = z.anzahl% 

IF (z.modulo% MOD 2)<>0 THEN 
z.modul 0%=z.modul 0%+1 


END IF 

z.groesse& = z.modul 0%*8+z.anzahl%*4+110 
z.offset% = ascii.lo%-32 

z.begin =0 

mem.opt& = 2°0+2°16 

z.add& = AllocMem&(z.groesse&,mem.opt&) 
IF z.add& = O0 THEN ERROR 7 

POKEL z.add&,z.groesse®& 

z. add& = z. add&+4 

z.data& = z.add&+100 

z.lock = z.data&+z.anzahl%*8 
z.name® = z.add&+65 


POKEL z.add&+10,z.name& 
POKEW z.add&+18,z.groesse&-4 
POKEW z.add&+20,8 
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POKE z.add&+23,64 

POKEW z.add&+24,8 

POKEW z.add&+26,6 

POKE z.add&+32,ascii.Llo% 
POKE z.add&+33,ascii.hi% 
POKEL z.add&+34, z.data& 
POKEW z. add&+38,z.modul 0% 
POKEL z.add&+40,z. lock 


ı* Namensfeld ausfuellen 
FOR loop1%=1 TO LEN(z.name$) 

POKE z.name&+loop1%-1,ASC(MID$(Cz.name$, loop1%,1)) 
NEXT Lloop1% 


'* charLoc Feld 

FOR loop1%=0 TO z.anzahl%-1 
POKEW z. loc&+(4*loop1%)+0, Loop1%*8 
POKEW z.loc&+(4*Loop1%)+2,8 

NEXT Loop1% 


ı* charData Feld 


sample$ = "topaz.font''+CHR$(0) 
t&(0) = SADD(sample$) 
t&(1) = 8*2°16 


sample& = OpenFont&(VARPTR(t&CO))) 
IF sample&=0 THEN 

PRINT "ROM-Fonts weg???!" 

ERROR 255 
END IF 
s.char& = PEEKL(sample&+34) 
s.modulo% = PEEKW(sample&+38) 
CALL CloseFont(sample&) 


IF z.offset%<O THEN 


z.anzahl% = z.anzahlX+z.offset% 
z.begin‘ = ABS(z.offset%) 
z.offset% = 0 

END IF 


FOR loop1%=0 TO 7 
CALL CopyMem(s.char&t+z.offset%+loop1%*s.modulo%, z.data&tz. 
begin%+loop1%*z.modulo%, z.anzahl%-1) 
NEXT Loop1% 


'* unprintable Character 

POKE z.data&+z.modul0%- 1+0*z.modul 0%, 224 
POKE z.data&+z.modul0%- 1+1*z.modul 0%, 64 
POKE z.data&+z.modul 0%- 1+2*z.modul 0%, 64 
POKE z.data&+z.modul0%- 1+3*z.modul 0%, 64 
POKE z.data&+z.modul 0%- 1+4*z.modul 0%, 73 
POKE z.data&+z.modul0%- 1+5*z.modul 0%, 73 
POKE z.data&+z.modulo%- 1+6*z.modul0%,77 
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POKE z.data&+z .modul0%- 1+7*z.modul0%,74 


ı* einbinden 

CALL AddFont(z.add&) 

t&(0) = SADD(z.name$) 

font.neu& = OpenFont&(VARPTR(t&(0))) 
IF font.neu& = 0 THEN ERROR 255 


CALL SetFont(WINDOW(8), font.neu&) 
END SUB 


Das Programm: 

Es liefert Ihnen insgesamt fünf SUB-Programme: 
- SchaffeZeichensatz 

- LoeschZeichensatz 

- NeuD 


- NeuB 
- AktiviereZeichensatz 


1. SchaffeZeichensatz 


Mit diesem Befehl kreieren Sie einen völlig neuen Zeichensatz. 
Er trägt den von Ihnen gewünschten Namen. Hier der Aufruf: 


SchaffeZeichensatz name$, 10%,hi% 


name$: Name des neuen Zeichensatzes 
10%: ASCII-Wert des ersten Zeichens 
hi%: ASCII-Wert des letzten Zeichens 


Es ist Ihnen freigestellt, wie viele Zeichen Sie in Ihrem Zei- 
chensatz unterbringen wollen. Wählen Sie dazu die untere und 
obere ASCII-Grenze: Jedes Zeichen besitzt einen ASCII-Wert, 
der sich durch den Befehl ASC ermitteln läßt: 


LINE INPUT "Zeichen: ";z$ 
PRINT ASC(z$) 


Insgesamt stehen die Codes 0 bıs 255 zur Verfügung. 
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Nachdem der Zeichensatz eingerichtet ist, enthält er natürlich 
keine Zeichendefinitionen. Er ist praktisch "leer", alle Zeichen 
bestehen aus "nichts". Deshalb wird der neue Zeichensatz mit 
den Daten des ROM-Schrifttyps "topaz 8" gefüllt. 


Nach diesem Aufruf steht Ihnen der neue Zeichensatz zur Ver- 
fügung. Alle Zeichen innerhalb der von Ihnen angegebenen 
ASCII-Grenzen werden wie topaz-8-Zeichen dargestellt, alle 
außerhalb der Grenzen liegenden Zeichen werden als "unprin- 
table Character" ausgegeben: ein kleines TW-Zeichen. 


2. AktiviereZeichensatz 


Wenn Sie nur mit einem einzigen eigenen Zeichensatz arbeiten 
wollen, ist dieser Befehl für Sie bedeutungslos. Anders ist es, 
wenn Sie mehrere Zeichensätze mit verschiedenen Namen ge- 
schaffen haben. Dann nämlich können Sie mit dieser Routine 
den Zeichensatz Ihrer Wahl aktivieren: 


AktiviereZeichensatz name$ 


name$: der Name eines zuvor durch "SchaffeZeichensatz" generierten 
Zeichensatzes 


3. NeuD 


Unser Ziel war die Definition eigener Zeichen. Diesen Zweck 
erfüllt NeuD. Jedes Zeichen unseres Zeichensatzes ist 8 Punkte 
breit und ebenfalls 8 Punkte hoch. Mit Hilfe von NeuD Iäßt sich 
jeweils eine der acht Zeilen eines beliebigen Zeichens umdefi- 
nieren:T 


NeuD zeichen$,nr%,bit$ 


zeichen$: Das Zeichen, das Sie umdefinieren wollen 
nr%: Die Zeile des Zeichens (0-7) 
bit$: Die neue Datenzeile (*=gesetzer Punkt, "."=ungesetzer 


Punkt) 
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Achtung: NeuD definiert das Zeichen aus dem zuletzt generier- 
ten bzw. mittels AktiviereZeichensatz bestimmten 
Zeichensatz. Das Zeichen muß logischerweise im 
Zeichensatz enthalten sein, um umdefiniert werden zu 
können. 


4. NeuB 


Dies ist eine Variante des Befehls NeuD. Dort wurden die Zei- 
chendaten für die neue Zeichenzeile als Sterne und Punkte ange- 
geben, also in binärer Darstellung. Diese muß jedoch vom Rech- 
ner erst in Dezimalzahlen umgewandelt werden. Wenn Sie sich 
ein bißchen mit Binär-Dezimal-Umwandlung auskennen, können 
Sıe die dezimalen Zahlenwerte natürlich direkt verwenden. Dazu 
dient NeuB: 


NeuB zeichen$,nr%, wert% 


zeichen$,nr%: 8.0. 
wert %: Dezimalwert für Zeile (0-255) 


5. LoeschZeichensatz 


Wenn Sie einen der von Ihnen geöffneten Zeichensätze nicht 
mehr brauchen, ist es Ihre Pflicht, ihn wıeder zu schließen. Das 
geschieht durch diesen Befehl: 


LoeschZeichensatz name$ 


name$: Name des von Ihnen durch SchaffeZeichensatz geöffneten 
Zeichensatzes. 


Spätestens am Ende Ihres Programms müssen alle durch "Schaf- 
feZeichensatz" erzeugten Zeichensätze mit diesem Befehl wieder 
ans System zurückgegeben werden! 
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Wichtige Programmhinweise: 


Wer etwas genauer über die Hintergründe eigener Zeichensätze 
Bescheid wissen möchte, findet auf den folgenden Seiten Hinter- 
grundinformationen. Sie können diesen Teil aber getrost über- 
springen, wenn er Sie nicht interessiert. 


SchaffeZeichensatz 


Die aus Kapitel 5.1 bekannte "TextFont"-Datenstruktur wird mit 
allen nötigen Parametern ausgefüllt. Das Feld "charLoc" wird mit 
den nötigen Werten initialisiert. Da die Zeichen des Zeichen- 
satzes eine einheitliche Breite von 8 Punkten haben, ist der 
Offset-Wert ein Vielfaches von 8, der Breite-Wert immer =8 
(siehe Kapitel 5.5). 


Das "charData"-Feld soll eigentlich vom Anwender mit den 
selbstdefinierten Zeichen ausgefüllt werden. Da man aber davon 
ausgehen kann, daß nicht alle Zeichen umdefiniert werden, soll 
"charData" zunächst mit den Daten des ROM-Schrifttyps "topaz 
8" ausgefüllt werden. Dazu wird "Topaz 8" geöffnet und ein Zei- 
ger auf das charData-Feld des topaz-Zeichensatzes in sample& 
gerettet. Auch das Modulo wird ausgelesen. Nun kann "topaz" 
getrost wieder geschlossen werden, denn die "charData"-Daten 
liegen im ROM (bzw. WOM) und werden daher nıcht entfernt. 


Als nächstes müssen zwei Variablen initialisiertt werden: 
z.offset% und z.begin%. Nicht immer nämlich enthält Ihr Zei- 
chensatz dieselben Zeichen wie der ROM-Typ. z.offset% enthält 
die Anzahl der Zeichen, die der neue Zeichensatz später beginnt: 
Der ROM-Zeichensatz beginnt immer bei ASCII-Code 32. Soll 
das erste Zeichen in Ihrem Zeichensatz aber ein "A" sein 
(Code=65), dann beträgt z.offset% 65-32=33. z.begin% hat die 
umgekehrte Aufgabe. Wenn der ASCII-Code des ersten Zeichens 
in Ihrem neuen Zeichensatz kleiner ist als 32, dann ist hier die 
Differenz gespeichert. 


Jetzt können die ROM-Daten in den RAM-Speicher kopiert 
werden. Dazu dient eine Funktion der Exec-Bibliothek: 
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CALL CopyMem(o.data&,z.data&,bytes&) 


o.data&: Originaldaten 
z.data&: Zieldaten 
bytes&: Anzahl der zu kopierenden Bytes 


Diese Routine gibt es erst ab Kickstart Version 1.2. Benutzer 
älterer Versionen müssen diesen Befehl durch PEEK und POKE 
umgehen oder die Schleife ganz herauslassen. Dann allerdings 
müssen alle Zeichen des neuen Zeichensatzes von Ihnen definiert 
werden, bevor Sie mit ihm arbeiten können. 


Sind alle Zeichen kopiert, dann wird das Aussehen eines "un- 
printable Characters" definiert. Dieses Zeichen erscheint immer 
dann, wenn das vom Anwender angeforderte Zeichen nicht im 
Zeichensatz liegt. Wir definieren ein kleines "TW". Die Daten für 
diesen "unprintable Character" liegen jeweils hinter den Daten 
für alle übrigen Zeichen. 


Jetzt ist der neue Zeichensatz voll funktionsfähig. Er wird nun 
mit Hilfe der Funktion "AddFont" ins System aufgenommen. 
Von diesem Zeitpunkt an können auch andere Programme Ihre 
Zeichengeneratoren mitbenutzen (z.B. das NOTEPAD). An- 
schließend wird der Zeichensatz mit Hilfe der "OpenFont&"- 
Funktion geöffnet. Die Adresse font.neu& muß dabei der 
Adresse z.add& entsprechen. 


An dieser Stelle ist es nötig, sich den Anfang der "TextFont"- 
Struktur genauer anzusehen. Bei ihm handelt es sich um eine 
"Message"-Struktur. Sie ist folgendermaßen aufgebaut: 


Datenstruktur "Message" /exec/20 Bytes 


Offset Typ Bezeichnung 

+ 000 Long Zeiger auf nächsten Zeichensatz 

+ 004 Long Zeiger auf vorangegangenen Zeichensatz 
+ 008 Byte Node-Typ 


+ 009 Byte Priorität 
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Offset Typ Bezeichnung 
+ 010 Long Zeiger auf Namen des Zeichensatzes 
+ 014 Long Zeiger auf Replyport 


+ 018 Word Länge der Message 


Vor Aufruf der AddFont-Routine muß lediglich das Namensfeld 
und die Länge der Message (= Länge des Zeichensatzes) 
eingesetzt werden. Nach AddFont ist der Rest initialisiert, d.h. 
die beiden ersten Zeiger zeigen auf zwei andere Zeichensätze. 


Diese Tatsache wird noch sehr wichtig, wenn Sie versuchen, Ih- 
ren eigenen Zeichensatz wieder aus dem System zu entfernen. 
Mehr dazu bei "LoeschZeichensatz". 


AktiviereZeichensatz: 


Hier wird nach dem Zeichensatz mit dem angegebenen Namen 
gesucht. Sie dürfen mit diesem SUB nur nach Zeichensätzen 
suchen, die durch SchaffeZeichensatz erzeugt wurden, denn der 
Zeichensatz wird nur kurz geöffnet, um alle nötigen Zeiger zu 
bekommen. Sofort danach wird er wieder geschlossen. Wir 
brauchen ihn nicht offen zu halten, denn er ist bereits durch 
SchaffeZeichensatz geöffnet. 


SetFont 


aktiviert den Zeichensatz. 


NeuD, NeuB 


Alle nötigen Zeichensatz-Daten werden über den Rastport direkt 
ausgelesen. NeuD wandelt die Bit-Definition in eine Dezimalzahl 
um, NeußB arbeitet von vornherein damit und ist also schneller. 
Der Wert wird an die aus den Parametern bestimmte Stelle ge- 
poked. 
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LoeschZeichensatz 


Auch hier wird der Zeichensatz des angegebenen Namens geöff- 
net. Zeichensätze müssen immer von demjenigen entfernt wer- 
den, der sie geschaffen hat. ROM-Zeichensätze verschwinden 
daher nie. Disk-Zeichensätze werden von AmigaDOS geladen 
und auch gehandhabt. Bei den eigenen Zeichensätzen sind wir 
allein für die ordnungsgemäße Beseitigung zuständig. Schaffe- 
Zeichensatz hatte bei der Speicherfestlegung die Länge des Zei- 
chensatzes in die letzten vier Bytes vor dem Zeichensatz ge- 
schrieben. Dieser Wert wird ausgelesen. Bevor der Zeichensatz 
mit FreeMem gelöscht werden kann, muß die Systemliste korri- 
giert werden. AddFont hatte unseren Zeichensatz in sie hinein- 
gebunden. Die entsprechenden Felder werden zurückgesetzt, der 
Zeichensatz stiehlt sich davon. 


Jetzt kann das RAM des Zeichensatzes ans System zurückgege- 
ben werden. Damit man nach diesem Schritt nicht ganz ohne 
Zeichensatz dasteht, wird der ROM-Zeichensatz aktiviert. 


5.5.4 Ein Proportionalschrift-Zeichensatz 


Kommen wir nun zu dem sehr komplexen Proportionalschrift- 
Zeichensatz. Es ist praktisch unmöglich, in ihm Zeichen nach- 
träglich umzudefinieren, denn dann müßten jedesmal mehrere 
hundert Bytes zur Seite geshiftet werden, um für die variablen 
Dimensionen dieses neuen Zeichens Platz zu schaffen. Um den- 
noch sinnvoll mit einem Proportionalschrift-Zeichensatz umge- 
hen zu können, haben wir folgende Methode verwandt: Sie ge- 
ben die maximale verwendete Zeichenbreite ein. Danach reser- 
viert das Programm für jedes Zeichen genügend Speicherplatz. 
Diese Methode ist zwar nicht gerade speichereffizient, aber die 
einzig praktikable in diesem Fall. 


Wieder stand die Anwendungsfreundlichkeit des Zeichengenera- 
tors im Vordergrund. Zeichen sollen leicht und ohne komplexe 
Zahlen- und Parametereinstellungen umdefinierbar sein. Dazu 
dienen sechs SUBs: 
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- SchaffeZeichensatz 

- LoeschZeichensatz 

- NeuB 

- NeuD 

- AktiviereZeichensatz 
- Set 


Sicherlich werden Ihnen diese Namen bekannt vorkommen. Ganz 
analog zum Fixed-Width-Zeichengenerator des vorherigen Ka- 
pitels arbeiten auch diese SUBs: 


Wieder können Sie beliebig viele Zeichensätze erstellen. Das be- 
sorgt der Befehl: 


SchaffeZeichensatz name$, 10%,hi%,breite%,höhe%,base% 


name$: Name des Zeichensatzes 

10%: untere ASCII-Grenze (siehe Kapitel 5.5.3) 

hi%: obere ASCII-Grenze 

breite%: maximale Breite in Punkten 

höhe%: einheitliche Höhe in Punkten 

base: Baseline (Höhe ohne Unterlängen) 

Achtung: Baseline muß mindestens einen Punkt kleiner sein als höhe%, 


weil sonst bei algorithmisch gesteuerter Schrift (speziell 
kursiv) Systemspeicher überschrieben werden kann! 


Nach diesem Aufruf generiert der Amiga einen Zeichensatz, der 
den oben genannten Anforderungen genügt. Er ist (im Gegensatz 
zum Fixed-Width-Generator) "leer", enthält also noch keine 
Zeichendefinitionen. Es wird Ihre Aufgabe sein, jedes einzelne 
Zeichen in diesem Generator selbst zu definieren. 


Bevor Sie mit der jeweiligen Zeichendefinition beginnen kön- 
nen, zu der Ihnen die bereits aus Kapitel 5.5.3 bekannten SUBs 
NeuD und NeuB zur Verfügung stehen, müssen Sie die indivi- 
duelle Größe des Zeichens einstellen. Das erledigt der Set-Be- 
fehl: 
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Set zeichen$,spacing%, kerning% 
zeichen: Das Zeichen, für das diese Werte gelten sollen. 
spacing%: Breite dieses Zeichens (darf die maximale Breite des 
Zeichengenerators nicht überschreiten). 
kerning%: Anzahl der Punkte, die vergehen sollen, bis das von Ihnen 


definierte Zeichen erscheinen soll. 


Nähere Informationen hierzu finden Sie in Kapitel 5.5 


Alle anderen SUBs entsprechen in ihrer Funktion denen des 


Fixed-Width-Generators (sind aber nicht identisch!). 





'# 

‘# Programm: Proportional-Zeichengenerator 
'# Datum: 12.4.87 

ı# Autor: tob 

ı# Version: 1.0 

'# 

I HEIHEIHHIHHTHIHIHEHIHIHIHIHHIHIHIHIHIFTHIHIHIHIHIFTHTERR 


Dieses Programm ermoeglicht die Herstellung beliebig 
vieler und bei Namen unterscheidbarer '"Proportional- 
schrift"-Zeichensaetze. Jeder Zeichensatz darf eine 
eigene individuelle Hoehe haben. Jedes Zeichen darf zu- 
dem eine individuelle Breite aufweisen. Alle undefinier- 
ten Zeichen sind ebendies, erscheinen also erst NACH 
erfolgter Definition. 


ıIGRAPHICS-Bibliothek 

DECLARE FUNCTION OpenFont& LIBRARY 
ıCloseFont() 

'SetFont() 

"AddFont() 


!EXEC-Bibliothek 
DECLARE FUNCTION AllocMem& LIBRARY 
'FreeMem( ) 


LIBRARY "graphics.library" 
LIBRARY "exec.Library"" 


init: ı%* Zeichensatz generieren 
SchaffeZeichensatz "tobi",32,65,9,10,7 


'Set-Format: 
'Set "Zeichen" ,Space,Kern 
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Set "a",20,3 
NeuD "au,.0,".. Kr," 
Neub Ham 1 


Neu "au 2,0... “u 
New au 3,0... “u 
Newd van, 4, nm... .*... N 
NeuD on 5,0. ...*., u 
Neub man 6 Nauen u 


Neub "a" . 7, LIE x 202 22 77722 777) 


NeuD "al, 8, 1 Krikkar u 
Neub "au, 9 m, werk, u 


ı* zweites Zeichen nach Byte-Methode (schneller) 
Set "A",11,1 

NeuB "A",0,8,126 

NeuB "A",1,8,129 

Neuß "A", 2,8,157 

NeuB "A", 3,8,161 

NeuB "A, 4,8,161 

Neuß "A", 5,8,157 

NeuB "A",6,8,129 

NeuB "A", 7,8,126 


ı* Beispieltext 
PRINT STRING$(C4O,"A") 
PRINT STRING$(40,"a") 


I%* Zeichensatz loeschen 
LoeschZeichensatz "tobi" 


END 


SUB AktiviereZeichensatz(z.n$) STATIC 


z.name$ = UCASE$(z.n$+".font"+CHR$CO)) 
t&(0) = SADD(z.name$) 

t&(1) = 8*2°16 

font& = OpenFont&(VARPTR(tE&CO))) 

IF font& = O0 THEN BEEP:EXIT SUB 


CALL CloseFont(font&) 
CALL SetFont(WINDOW(8), font&) 


END SUB 

SUB Set(zeichen$,spacing%,kerning%) STATIC 
n. font& = PEEKL(WINDOW(8)+52) 
n.space& = PEEKL(n.font&+44) 
n.kern& = PEEKL(n.font&+48) 
n.ascii% = ASC(zeichen$) 
n.lo% = PEEK(n. font&+32) 
n.hi% = PEEK(n. font&+33) 
n.anzahl% = n.ascii%-n.Llo% 


IF n.ascii%<n.lo% OR n.ascii%>n.hi% THEN 
EXIT SUB 
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END IF 
POKEW n.space&+(2*n.anzahl%) ,spacing% 
POKEW n.kern&+(2*n.anzahl%) ,kerning% 


END SUB 
SUB Neuß(zeichen$,zeile%,bits%,wert%) STATIC 
n.byte% =0 
n.bit% =0 
n.font& = PEEKL(WINDOW(8)+52) 
n.data& = PEEKL(n. font&+34) 
n.loc& = PEEKL(n. font&+40) 
n.ascii% = ASC(zeichen$) 
n.Lo% = PEEK(n. font&+32) 
n.hi% = PEEK(n. font&+33) 
n.modul0o% = PEEKW(n.font&+38) 
n.offset% = zeile%*n.modul 0% 
n.hoehe% = PEEKW(n.font&+20) 
n.anzahl% = n.ascii%-n.lLo% 
n.breite% = PEEKW(PEEKL(n. font&+40)+(4*n.anzahl%)+2) 
n.offset& = PEEKW(PEEKL(n. font&+40)+(4*n.anzahl%)) 
n.byte% = INT(n.offset&/8) 
n.bit% = 7-(n.offset&-(n.byte%*8)) 
IF n.ascii%<n.lo% OR n.ascii%>n.hi% THEN 
EXIT SUB 
END IF 


IF bits%>n.breite% THEN 
bits% = n.breite% 


END IF 
n.data& = n.data&+n.offset% 
FOR loop1% = bits%-1 TO O0 STEP -1 


IF (wert% AND 2”Loop1%)<>O THEN 


POKE n.data&+tn.byte%,PEEK(n.data&+tn.byte%) OR (2°’n.bit%) 


END IF 
n.bit% = n.bit%-1 
IF n.bit%<O THEN 


n.bitX = 7 
n.byte% = n.byte%+1 
END IF 


NEXT Loop1% 


POKEW n. loc&+(4*n.anzahl%)+2,bits% 
END SUB 


SUB Neuß(zeichen$,, zeile%,bits$) STATIC 


bits% = LEN(bits$) 

n.byteX =0 

n.bit% =0 

n.font& = PEEKL(WINDOW(8)+52) 
n.data& = PEEKL(n.font&+34) 
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n.loc& = PEEKL(n.font&+40) 
n.ascii% = ASC(zeichen$) 
n.lo% = PEEK(n.font&+32) 
n.hi% = PEEK(n.font&+33) 
n.modulo% = PEEKW(n. font&+38) 
n.offset% = zeile%*n.modul0% 
n.hoeheX = PEEKW(n.font&+20) 
n.anzahl% = n.ascii%-n.1loX 
n.breiteX% = PEEKW(PEEKL(n. font&+40)+(4*n.anzahl%)+2) 
n.offset& = PEEKW(PEEKL(n.font&+40)+(4*n.anzahl%)) 
n.byte% = INT(n.offset&/8) 
n.bit% = 7-(n.offset&-(n.byte%*8)) 
IF n.ascii%<n.lo% OR n.ascii%>n.hi% THEN 

EXIT SUB 
END IF 
IF bits%>n.breite% THEN 

bits% = n.breite% 
END IF 
n.data& = n.data&+n.offset% 
FOR loop1%=bits%-1 TO 0 STEP -1 

c$ = MID$(bits$,bits%-loop1%,1) 

IF c$="*" THEN 

POKE n.data&tn.byte%,PEEK(n.data&+tn.byte%) OR (2”n.bit%) 


END I 


F 


n.bit% = n.bit%-1 


IF n. 


n.bit% 


bit%<O THEN 
7 


n.byte% = n.byte%+1 


END I 
NEXT lo 


POKEW n 
END SUB 


SUB LoeschZei 
z.name$ 
t&(0) 
t&(1) 
font& 


IF font& 


z.groes 
IF z.gr 


ı* aus S 
z.1& = 
z.0& = 
POKEL z 
POKEL z 


F 
op1% 


.loc&+(4*n.anzahl%)+2,bits% 


chensatz(z.n$) STATIC 
UCASE$(zZ.n$+". font"'+CHR$CO)) 
SADD(z.name$) 

8*2"16 
OpenFont&(VARPTR(t&(C0))) 

0 THEN ERROR 255 


se& = PEEKL(font&-4) 
oesse&<100 OR z.groesse&>400008& THEN ERROR 255 


ystem-Liste entfernen 
PEEKL(font&) 
PEEKL(font&+4) 
.18+4,2.2& 

.28&,2.1& 
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ı* RAM freigeben 
font& = font&-4 
CALL FreeMem(font&,z.groesse®) 


ı* Standard Zeichensatz laden 


standard$ = "topaz.font'"+CHR$(0) 
t&(0) = SADD(standard$) 

font& = OpenFont&(VARPTR(t&(0))) 
IF font& = 0 THEN ERROR 255 


CALL SetFont(WINDOW(8), font&) 
END SUB 


SUB SchaffeZeichensatz(z.n$,ascii.lo%,ascii.hi%,z.maxX%,z.hoehe%, z. 
baseline%) STATIC 


z.name$ = UCASE$(Z.n$+".font"+CHR$(CO)) 
z.anzahl% = ascii.hi%-ascii.lo%+2 
z.modulo% = (z.anzahl%*z.maxX%+4)/8 


IF (z.modulo% MOD 2)<>0 THEN 
z.modul 0%=z.modul 0%+1 
END IF 


z.groesse& = z.modul0%*z.hoehe%+z.anzah1l%*8+110 


IF z.baseline%>=z.hoehe% THEN 
z.baseline% = z.hoehe%- 1 


END IF 

mem.opt& = 2°0+2°16 

z. add& = AllocMem&(z.groesse&,mem.opt&) 
IF z.add& = 0 THEN ERROR 7 

POKEL z.add&,z.groesse& 

z.add& = z.add&+4 

z.data& = z.add&+100 

z.loc& = z.data&+z.modul0%*z.hoehe% 


IF z.loc&/2<>1INT(z.loc&/2) THEN 
z.loc& = z.loc&+1 
END IF 


z.kern& 
z.space& 


z.loc&+4*z.anzahl% 
z.kern&+2*z.anzahl% 


z. add&+65 


z.name& 
POKEL z.add&+10,z.name® 
POKEW z.add&+18,z.groesse&-4 
POKEW z.add&+20,z.hoehe% 
POKE z.add&+23,64+32 

POKEW z.add&+24,z.maxX% 
POKEW z.add&+26,z.basel ine% 
POKE z.add&+32,ascii.1lo% 
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POKE z.add&+33,ascii.hi% 
POKEL z.add&+34,z.data& 
POKEW z.add&+38,z.modulo% 
POKEL z. add&+40,z. lock 
POKEL z.add&+44,z.space& 
POKEL z.add&+48,z.kern& 


ı* Namensfeld ausfuellen 
FOR loop1%=1 TO LEN(z.name$) 

POKE z.name&+loop1%-1,ASC(MID$(Cz.name$, loop1%,1)) 
NEXT Loop1% 


ı* charloc Feld 

FOR loop1%=0 TO z.anzahl%-1 
POKEW z. loc&+(4*Loop1%)+0, loop1%*z.maxX% 
POKEW z. loc&+(4*loop1%)+2,z.maxX% 

NEXT Loop1% 


ı* einbinden 

CALL AddFont(z.add&) 

t&(0) = SADD(z.name$) 

font.neu& = OpenFont&(VARPTR(t&(0))) 
IF font.neu&=0 THEN ERROR 255 


CALL SetFont(WINDOW(8), font.neu&) 
END SUB | 
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6.  Grafik-Hardcopy 


Was nützen die schönsten Computergrafiken, wenn sie mit einem 
letzten Aufflackern verschwinden, sobald dem Computer der 
Strom abgedreht wird? Natürlich nichts. Was wir benötigen, ist 
eine Routine, die diese Grafiken auf einem Drucker ausdruckt. 


Bei den meisten anderen Computern wären jetzt langwierige und 
umständliche Maschinenroutinen erforderlich. Nicht jedoch beim 
Amiga, der die Möglichkeit, "Hardcopies" zu produzieren, bereits 
in der Systemsoftware enthalten hat. Nachdem Sie Ihren Drucker 
in den Workbench-Preferences eingestellt haben (und er in der 
Lage ist, Grafiken auszudrucken), brauchen Sie sich um nichts 
mehr zu kümmern. Alle weitere Arbeit, also das Auslesen der 
Grafik, die Ansteuerung des Druckers, die Musterung für die 
Farben, übernimmt das sogenannte "printer.device", was nichts 
weiter heißt als "Drucker Gerät". Bei diesem "printer.device" 
handelt es sich natürlich nicht um den Drucker selbst, sondern 
um eine Komponente des Amiga-Betriebssystems, die den 
Drucker steuert. 


Um Grafiken ausdrucken zu können, muß man einen Weg fin- 
den, um mit dem "printer.device" ın Kontakt zu treten. Das 
funktioniert über die standardisierte I/O (Eingabe-Ausgabe) des 
Amiga. Die I/O wird von der Exec-Bibliothek verwaltet. 


Speziell für unser Anliegen gibt es eine Datenstruktur mit dem 
abenteuerlichen Namen "IODRPReq" (I/O Dump Rastport Re- 
quest = Aufforderung zum Ausdrucken eines Rastports). Sie 
muß mit den wichtigsten Daten .bestückt an das "printer.device" 
geschickt werden. Hier ihr Aufbau: 


Datenstruktur "IODRPReg"/printer/62 Bytes 
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Offset 


+ 000 
+ 004 
+ 008 
+ 009 
+ 010 
+ 014 
+ 018 
+ 020 
+ 024 
+ 028 
+ 030 
+ 031 


+ 032 
+ 036 
+ 040 
+ 044 
+ 046 
+ 048 
+ 050 
+ 052 
+ 056 
+ 060 


Long 
Long 
Byte 
Byte 
Long 
Long 
Word 
Long 
Long 
Word 
Byte 
Byte 


Long 
Long 
Long 
Word 
Word 
Word 
Word 
Long 
Long 
Word 
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Bezeichnung 


folgende Datenstruktur 
vorherige Datenstruktur 
Node-Typ (5=MESSAGE) 
Priorität (O=normal) 

Zeiger auf Name 

Zeiger auf Message Port (Reply Port) 
Länge der Message 

ioDevice 

ioUnit 

Befehl (11=DumpRastport()) 
Flag (1=Quick 1/O) 


Error-Nr. 

= Benutzer brach Druckvorgang ab 

= kein Grafikdrucker angeschlossen 

3= HAM kann nicht invertiert werden 

4= Druck-Koordinaten sind unzulässig 

b= Druck-Dimensionen sind unzulässig 

6= kein Speicher frei für interne Berechnungen 
U kein Speicher frei für Druckpuffer 


Adresse des Rastports 

Adresse der Colormap 

Modi (des Viewports) 

Rastport: X-Beginn (O=normal) 
Rastport: Y-Beginn (0=normal) 
Rastport: Breite 

Rastport: Höhe 

Drucker: Breite 

Drucker: Höhe 

Spegzial-Modi 


1= Bit0 = 1: Druck-Breite in 1/1000 inch 

2= Bit1= 1: Druck-Höhe in 1/1000 inch 

4= Bit 2 = 1: Druck-Breite so groß wie möglich 
8= Bit 3 = 1: Druck-Höhe so groß wie mögl. 


16= Bit 4 = 1: Druck-Breite ist Teil von FULL-X 
32= Bit5 = 1: Druck-Höhe ist Teil von FULL-Y 
128 = Bit 7 = 1: X-Y-Verhältnis ausgleichen 

256 = Bit 8 = 1: geringe Auflösung 

5612 = Bit 9 = 1: mittlere Auflösung 

768 = Bits 8+9 = 1: höhere Auflösung 

1024 =Bit 10 = 1: höchste Auflösung 


Die meisten Datenfelder dieser Struktur müssen vor Gebrauch 
mit den korrekten Werten gefüllt werden. Dazu gehört auch ein 
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Zeiger auf einen sogenannten "ReplyPort". Das ist ein Exec- 
Message-Port (ein Sender/Empfänger für zwischentaskliche Be- 
ziehungen), wie immer eine Datenstruktur: 


Datenstruktur "Message Port"/exec/34 Bytes 


Offset Typ Bezeichnung 

+ 000 Long nächste Datenstruktur 

+ 004 Long vorherige Datenstruktur 

+ 008 Byte Typ (4=MESSAGE PORT) 

+ 009 Byte Priorität (O=normal) 

+ 010 Long Zeiger auf Name 

+ 014 Byte Flags 
PA SIGNAL 4 
PA SOFTINT = 2 
PA IGNORE =4 

+ 015 Byte Signal-Bit 

+ 016 Long Zeiger auf Task für Signal 

+ 020 Long erste Datenstruktur 

+ 024 Long letzte Datenstruktur 

+ 028 Long vorletzte Datenstruktur 

+ 032 Byte Typ 

+ 033 Byte unbenutzt 


Sind beide Strukturen korrekt initialisiert, benötigen wir Zugriff 
auf den Drucker. Den besorgt die Funktion "OpenDevice": 


status%=OpenDevice%(name$,unit%, io&,flags%) 


name$: Zeiger auf nullterminierten Namensstring, hier: 
"printer.device"+CHR$(0) 

unit%: Geräte-Einheit; hier unwichtig, also 0 

io&: Adresse des korrekt initialisierten I/O-Datenblocks, hier: 
IODRPReg. 

flag%: hier unwichtig, also O 


Diese Funktion liefert einen Statusreport zurück. Verlief alles 
wunschgemäß, ist das eine Null. Ansonsten konnte der Drucker 
nicht erreicht werden. Er war eventuell nicht angeschlossen, ab- 
geschaltet oder noch im Besitz eines anderen gleichzeitig laufen- 
den Tasks. Achtung: Wenn Ihr Programm LPRINTs benutzt, 
kann die Hardcopy-Routine den Drucker nicht bekommen! 
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Wurde der Drucker ordnungsgemäß geöffnet, dann sind die Fel- 
der ioDevice und ioUnit der IODRPReqg-Struktur jetzt ausge- 
füllt. Der Exec-Befehl "DoIO" startet den Druckvorgang: 


fehler%=Do10%(i0&) 


io&: Adresse des IODRPReq-Blockes 

fehler%: alles ok = 0 
für Fehlerdecodierung siehe IODRPReq-Struktur (oben), 
Error-Feld 


Kommen wir von der Theorie nun zur Praxis: 


6.1 Eine einfache Hardcopy-Routine 


Das folgende Programm ist das Grundgerüst einer Hardcopy- 
Routine. Der Befehl "Hardcopy" druckt den Inhalt des augen- 
blicklichen Ausgabefensters (mit WINDOW OUTPUT bestimm- 
bar!) aus. 


EHER 
8 # 

ı# Programm: Hardcopy I 

'# Datum: 13.4.87 

ı# Autor: tob 

ı# Version: 1.0 





ı Druckt den Inhalt des augenblicklichen Ausgabe-Fensters 
ı als Grafik-Hardcopy auf einem grafikfaehigen Drucker 
ı aus. 


PRINT "Suche die .bmap-Dateien.. ." 


!EXEC-Bibliothek 

DECLARE FUNCTION AllocMem& LIBRARY 
DECLARE FUNCTION DOo10O% LIBRARY 
DECLARE FUNCTION OpenDevice% LIBRARY 
DECLARE FUNCTION AllocSignal% LIBRARY 
DECLARE FUNCTION FindTask& LIBRARY 
!FreeMem( ) 

'CloseDevice() 

ıFreeSignal() 

'AddPort() 
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'RemPort() 
LIBRARY "exec.Library" 


init: ı* etwas zeichnen 
CLS 
CIRCLE (300,100), 100 
LINE (10,10)-(200,100),2,bf 


Hardcopy 
END 
SUB Hardcopy STATIC 

mem.opt& = 2°0+2°16 
p.i0& = AllocMem&(100,mem.opt&) 
p.port& = p.io&+62 
IF p.io& = O THEN ERROR 7 
f.fenster& = WINDOW(7) 
f.rastport& = PEEKL(f.fenster&+50) 
f.breite% = PEEKW(f.fenster&+112) 
f.hoehe% = PEEKW(f.fenster&+114) 
f.screen& = PEEKL(f.fenster&+46) 
f.viewport& = f.screen&+44 
f.colormap& = PEEKL(f.viewport&+4) 
f.vp.modi% = PEEKW(Cf.viewport&+32) 


p.sigBit% = AllocSignal%(-1) 
IF p.sigBit% = -1 THEN 
PRINT "Kein Signalbit frei!" 
CALL FreeMem(p.i0&,100) 
EXIT SUB 
END IF 
p.sigTask& = FindTask&(0) 


POKE p.port&+8,4 

POKEL p.port&+10,p.port&+34 
POKE p.port&+15,p.sigBit% 
POKEL p.port&+16,p.sigTask& 
POKEL p.port&+20,p.port&+t24 
POKEL p.port&+28,p.port&+20 
POKE p.port&+34,ASCC"P") 
POKE p.port&+35,ASCC"R") 
POKE p.port&+36,ASC("T") 


CALL AddPort(p.port&) 
POKE p.io&+t8,5 


POKEL p.io&+14,p.port& 
POKEW p.i0&+28, 11 
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POKEL p.io&+32,f.rastport& 
POKEL p.i0&+36, f.colormap& 
POKEL p.i0&+40,f.vp.modi% 
POKEW p. io&+48,f.breiteX 
POKEW p.i0&+50, f.hoehe% 
POKEL p.i0&+52,f.breite% 
POKEL p.i0&+56, f.hoehe% 
POKEW p. i0&+60,4 


d.name$ = "printer.device"+CHR$(0) 
status‘ = OpenDevice%(SADD(d.name$),0,p.i0&,0) 
IF status%<>0 THEN 
PRINT "Drucker ist nicht frei." 
CALL FreeMem(p.io&, 100) 
CALL FreeSignal(p.sigBitX) 
EXIT SUB 
END IF 


fehler% = DoIO0%X(p.io&) 


CALL CloseDevice(p.io&) 

CALL RemPort(p.port&) 

CALL FreeMem(p.i0&,100) 

CALL FreeSignal(p.sigBit%) 

PRINT "Fehlercode: ";fehler% 
END SUB 


Zum Programm-Ablauf: 


Wenn Sie mit einem Schwarz-Weiß-Drucker arbeiten, wandelt 
das "printer.device" alle Farben automatisch in Muster um. Jede 
Farbe hat ihr eigenes Muster, das die Farbhelligkeit simulieren 
soll. Für einen weißen Hintergrund müssen die Farben entspre- 
chend gesetzt werden: 


PALETTE 0,1,1,1 
COLOR 1,0 


Es kommt kein Grafikausdruck zustande? Hier eine Checkliste 
der möglichen Fehlerquellen: 


Wird ein Fehlercode zurückgeliefert (kann bis zu 30 Sekunden 
dauern)? 
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Wenn ja: | 

Der Fehlercode gibt Ihnen Aufschluß über die Art des Fehlers. 
Folgende Codes sind möglich: 

Code 1: Druckvorgang wurde abgebrochen 

Sie haben den Druckvorgang willkürlich beendet, indem Sie 
beispielsweise bei einem erscheinenden Requester (dem Frage- 
kästchen) wie "PRINTER TROUBLE" auf das "Cancel"-Feld ge- 
drückt haben, anstatt den Fehler zu beheben. 

Code 2: Kein Grafikdrucker 

Der in den Preferences angemeldete Drucker kann keine Grafi- 
ken ausdrucken (Typenrad-Drucker etc.). 

Code 3: Hold-And-Modify 


Hold-And-Modify-Grafiken lassen sich nicht invertieren, denn 
ihre Farben kommen auf ganz besondere Weise zustande. Siehe 
Kapitel 4.2.2. 

Code 4: Unzulässige Druck-Koordinaten 


Bei korrekter Programmeingabe darf dieser Fehler nicht auftre- 
ten. Tut er es doch, liegt ein Abtippfehler vor. Die X- und Y- 
Anfangskoordinaten des Rastports liegen außerhalb desselben. 
Code 5: Unzulässige Dimensionen 

Siehe Code 4. Die Rastport-Breite bzw. -Höhe ist größer als der 
existierende Rastport. 

Code 6 und 7: Out Of Memory 


Der Systemspeicher reicht nicht aus. 


Wenn nein: 


- Trat die Fehlermeldung "Kein Signalbit frei!" auf? Dann ist 
das Multi-Tasking-System überlastet. Sie müssen sich gedul- 
den, bis andere Programme ein Signalbit freigeben. 
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- Trat die Fehlermeldung "Drucker nicht frei!" auf? Dann wird 
der Drucker augenblicklich von einem anderen Programm be- 
nutzt (LPRINTs in Ihrem eigenen Programm zum Beispiel), 
oder der Drucker wurde geöffnet und nicht wieder geschlos- 
sen. Dann allerdings hilft nur noch ein System-Boot (Reset). 


Alle anderen Fehler beruhen auf Abtippfehlern. 


6.2 Hardcopies: Vergrößern und Verkleinern! 


Obiges Programm zaubert zwar schöne Hardcopies hervor, die 
für die allermeisten Anwendungen ausreichen, die Möglichkeiten 
des "printer.device" werden aber nicht annähernd ausgenutzt. Die 
folgende Hardcopy-Routine ermöglicht Ihnen den Ausdruck 
eines Ausschnittes eines Fensters. Dieser Ausschnitt, der natür- 
lich auch das gesamte Fenster umfassen kann, läßt sich zudem 
verkleinert oder vergrößert auf den Drucker ausgeben. 


HHHHHHHHHHHHHHHHHHHHEEEHHHHTREREHHHHHER 
'# 

‘# Programm: Hardcopy II 

ı# Datum: 13.4.87 


ı# Autor: tob 
ı# Version: 1.0 
'f 


HH ER EHEHOHEHEHUHE 


' Erlaubt ausschnittsweises Ausdrucken, Vergroessern und 
ı Verkleinern des Ausdrucks. 


PRINT "Suche die .bmap-Dateien..." 


!EXEC-Bibliothek 

DECLARE FUNCTION AllocMem& LIBRARY 
DECLARE FUNCTION DoIO% LIBRARY 
DECLARE FUNCTION OpenDevice% LIBRARY 
DECLARE FUNCTION AllocSignal% LIBRARY 
DECLARE FUNCTION FindTask& LIBRARY 
ıFreeMem( ) 

'CloseDevice() 

ıFreeSignal() 

ıAddPort() 

'RemPort() 


LIBRARY "exec.library" 
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init: 1% etwas zeichnen 


CLS 


CIRCLE (300,100), 100 


LINE 


(10,10)-(200,100),2,bf 


ı* Farben; schwarz-weiss-Kontrast 
PALETTE 0,1,1,1 
PALETTE 1,0,0,0 


ParameterHardcopy 200,10,200,100,1.2,.5 


END 

SUB ParameterHardcopy(x%,y%,breite%,hoehe%, f1,f2) STATIC 
mem.opt& = 2°0+2°16 
p.io& = AllocMem&(100,mem.opt&) 
p.port& = p.io&+62 
IF p.io& = O THEN ERROR 7 
f.fenster& = WINDOW(7) 
f.rastport& = PEEKL(f.fenster&+50) 
f.breite% = PEEKW(Cf.fenster&+112) 
f.hoehe% = PEEKW(f.fenster&+114) 
f.screen& = PEEKL(f.fenster&+46) 
f.viewport& = f.screen&t44 
f.colormap& = PEEKL(f.viewport&+4) 
f.vp.modi% = PEEKW(f.viewport&+32) 
p.sigBit% = AllocSignal%(-1) 


IF p.sigBit% = -1 THEN 
PRINT "Kein Signalbit frei!" 
CALL FreeMem(p.i0&,100) 


EXIT SUB 
END IF 
p.sigTask& 


FindTask&(0) 


POKE p.port&+t8,4 

POKEL p.port&+10,p.port&+34 
POKE p.port&+15,p.sigBit% 
POKEL p.port&+16,p.sigTask& 
POKEL p.port&+20,p.port&+24 
POKEL p.port&+28,p.port&+20 
POKE p.port&+34,ASCC"P") 
POKE p.port&+35,ASCC"R") 
POKE p.port&+36,ASC("T") 


CALL AddPort(p.port&) 


POKE p.io&+8,5 


POKEL p.io&+14,p.port& 
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POKEW p.i0&+28,11 

POKEL p.i0&+32,f.rastport& 
POKEL p. i0&+36, f.colormap& 
POKEL p.i0&+40,f.vp.modi% 
POKEW p. 10&+44,x% 

POKEW p.i0&+46,y% 

POKEW p. i0&+48,breite% 
POKEW p. i0&+50,hoehe% 
POKEL p.i0&+52,f.breite%*f1 
POKEL p.i0&+56, f.hoehe%*f2 


d.name$ = "printer.device"+CHR$(CO0) 
status‘% = OpenDevice%(SADD(d.name$),0,p.i08&,0) 
IF status%<>0O THEN 
PRINT "Drucker ist nicht frei." 
CALL FreeMem(p. io&, 100) 
CALL FreeSignal(p.sigBit%) 
EXIT SUB 
END IF 


fehler% = Dol0%(p.io&) 


CALL CloseDevice(p.io&) 

CALL RemPort(p.port&) 

CALL FreeMem(p. i0o&, 100) 

CALL FreeSignal(p.sigBit%) 
PRINT "Fehlercode: ";fehler% 


END SUB 


Aufruf: 


6.3 


ParameterHardcopy x%,y%,breite%,höhe%, f1,f2 


xR,y%: Koordinaten der linken oberen Ecke des Ausschnitts des 
Fensters, das Sie drucken möchten 

breite%: Breite des Ausschnitts in Punkten 

höhe%: Höhe des Ausschnitts in Punkten 

fl: Vergrößerungsfaktor horizontal 

f2: Vergrößerungsfaktor vertikal 


Ausdrucken beliebiger Fenster 


Bisher war es nur möglich, Fenster des AmigaBASIC auszu- 
drucken. Das "printer.device" kann natürlich den Inhalt eines je- 
den Fensters drucken (z.B. den der Preferences). In Kapitel 3.1 
hatten wir Ihnen bereits einen Weg gezeigt, wie Sie alle Fenster 
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des Systems erreichen können. Leicht abgewandelt kommt dieses 
Wissen dem nächsten Programm zugute. Die folgende Routine 
druckt ein beliebiges Fenster aus. Dazu benötigt die Routine le- 
diglich den Namen des Fensters (Achtung: Das Preference- 
Fenster nennt sich " Preferences"): 





A 

‘# Programm: Hardcopy III. 
ı# Datum: 13.4.87 

ı# Autor: tob 

ı# Version: 1.0 

'# 


EEE IE IE EEE ER EEE EEE EL ER ER ER EEE EL ERTL TEL ILTLER EL 





ı Druckt den Inhalt eines beliebigen System-Fensters, von 
‘ dem der Name bekannt ist (incl. vergroessern, -kleinern, 
ı Ausschnitt). 


PRINT "Suche die .bmap-Dateien..." 


!EXEC-Bibliothek 

DECLARE FUNCTION AllocMem& LIBRARY 
DECLARE FUNCTION DoIO% LIBRARY 
DECLARE FUNCTION OpenDevice% LIBRARY 
DECLARE FUNCTION AllocSignal% LIBRARY 
DECLARE FUNCTION FindTask& LIBRARY 
'FreeMem( ) 

'CloseDevice() 

ıfreeSignal() 

'AddPort() 

'RemPort() 


LIBRARY "exec.Library" 


init: ı* es geht los 
CLS 
PALETTE 0,1,1,1 
PALETTE 1,0,0,0 


LIST 
UniversalHardcopy "L1ST",0,0,200,100,.8,.5 


END 


SUB UniversalHardcopy(namen$,x%,y%,breite%,hoehe%, f1,f2) STATIC 
f.fenster& = WINDOW(7) 
f.reg& = PEEKL(f.fenster&+66) 
WHILE f.reg&>0 
f.fenster& = f.reg& 
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f.reg& = PEEKL(f.fenster&+66) 
WEND 
finder: 
f.titel& = PEEKL(f.fenster&+32) 
check% = PEEK(f.titel&+count‘) 
WHILE check%>0 

check$ = check$+CHR$(check%) 

count% = count%+1 

check% = PEEK(f.titel&+count%) 
WEND 
gefunden$ = check$:check$="":count%=0 


IF UCASE$(gefunden$)<>UCASE$(namen$) THEN 
f.fenster& = PEEKL(f.fenster&+70) 
IF f.fenster&>0 THEN 


--GOTO finder 
ELSE 
PRINT "Fenster gibt es nicht!" 
EXIT SUB 
END IF 
END IF 
mem.opt& = 2°0+2°16 
p. io& = AllocMem&(100,mem.opt&) 
p.port& = p.io&+62 
IF p.io& = O0 THEN ERROR 7 
f.rastport& = PEEKL(f.fenster&+50) 
f.breite% = PEEKWCf.fenster&+112) 
f.hoehe% = PEEKW(f.fenster&+114) 
f.screen& = PEEKL(f.fenster&+46) 
f.viewport& = f.screen&+44 
f.colormap& = PEEKL(f.viewport&+4) 
f.vp.modi% = PEEKW(f.viewport&+32) 


p.sigBit%X = AllocSignal%(-1) 
IF p.sigBit% = -1 THEN 
PRINT "Kein Signalbit frei!" 
CALL FreeMem(p.io&, 100) 
EXIT SUB 
END IF 
p.sigTask&=FindTask&(0) 


POKE p.port&+8,4 

POKEL p.port&+10,p.port&+34 
POKE p.port&+15,p.sigBit% 
POKEL p.port&+16,p.sigTask& 
POKEL p.port&+20,p.port&+24 
POKEL p.port&+28,p.port&+20 
POKE p.port&+34 ,ASC("P") 
POKE p.port&+35,ASC("R") 
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POKE p.port&+36,ASCC"T") 
CALL AddPort(p.port&) 


POKE p.io&+8,5 

POKEL p.io&+14,p.port& 
POKEW p.i0&+28,11 

POKEL p.io&+32,f.rastport& 
POKEL p.i0&+36, f.colormap& 
POKEL p.i0&+40,f.vp.modi% 
POKEW p. i0&+44,x% 

POKEW p. i0&+46,y% 

POKEW p. io&+48,breite% 
POKEW p. i0&+50,hoehe% 
POKEL p. io&+52,f.breite%*f1 
POKEL p.i0&+56, f.hoeheX%*f2 


d.name$ = "printer.device'+CHR$(O0) 
status% = OpenDevice%(SADD(d.name$),0,p.i0&,0) 
IF status%<>0O THEN 
PRINT "Drucker ist nicht frei." 
CALL FreeMem(p.i0&,100) 
CALL FreeSignal(p.sigBit%) 
EXIT SUB 
END IF 


fehler% = Dol0%(p.io&) 


CALL CloseDevice(p.i0&) 

CALL RemPort(p.port&) 

CALL FreeMem(p.io&, 100) 

CALL FreeSignal(p.sigBit%) 

PRINT "Fehlercode: ";fehler% 
END SUB 


6.4 ScreenDump - einen ganzen Screen 


Da ein Screen einen eigenen Rastport besitzt, läßt er sich auch 
ausdrucken. Hier das Programm: Es entspricht dem vorangegan- 
genen, lediglich verlangt es an Stelle des Fensternamens die 
Nummer des Screens (0=Workbench-Screen). Dieses Programm 
funktioniert nur dann, wenn das Ausgabefenster im Workbench- 
Screen liegt. 
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HERE EHHHEHHEHEHHUHE 
'4 

ı# Programm: Hardcopy IV 

'# Datum: 13.4.87 


ı# Autor: tob 
ı# Version: 1.0 
4 





MILELILILN 


ı Druckt einen beliebigen Screeninhalt aus. 
PRINT "Suche die .bmap-Dateien..." 


!EXEC-Bibliothek 

‚DECLARE FUNCTION AllocMem& LIBRARY 
DECLARE FUNCTION DoI0O% LIBRARY 
DECLARE FUNCTION OpenDevice% LIBRARY 
DECLARE FUNCTION AllocSignal% LIBRARY 
DECLARE FUNCTION FindTask& LIBRARY 
'FreeMem( ) 

ıCloseDevice() 

ıFreeSignal() 

'AddPort() 

'RemPort() 


LIBRARY "exec.Library" 


init: ı* etwas zeichnen 
CLS 
CIRCLE (300,100), 100 
LINE (10,10)-(200,100),2,bf 
PALETTE 0,1,1,1 
PALETTE 1,0,0,0 


ScreenHardcopy 0,0,0,640,256,1.1,2! 


END 
SUB ScreenHardcopy(nr%,x%,y%,breite%,hoehe%, f1,f2) STATIC 
f.fenster& = WINDOW(7) 
f.screen& = f.fenster&+46 


FOR loop1% = 0 TO nr% 
f.screen&=PEEKL(f.screen&) 
IF f.screen&=0 THEN 
PRINT ''Screen-Nummer gibt es nicht!" 
EXIT SUB 
END IF 
NEXT loop1% 


2°0+2°16 
AllocMem&(100,mem.opt&) 


mem.opt& 
p. i0& 
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p.port& = p.io&t62 

IF p.io& = 0 THEN ERROR 7 
f.breite% = PEEKW(f.screen&+12) 
f.hoehe% = PEEKW(f.screen&+14) 
f.rastport& = f.screen&+B4 
f.viewport& = f.screen&+44 
f.colormap& = PEEKL(f.viewport&+4) 
f.vp.modi% = PEEKW(f.viewport&+32) 


p.sigBit% = AllocSignal%(-1) 
IF p.sigBit%=-1 THEN 
PRINT "Kein Signalbit frei!" 
CALL FreeMem(p.io&, 100) 
EXIT SUB 
END IF 
p.sigTask& = FindTask&(0) 


POKE p.port&+8,4 

POKEL p.port&+10,p.port&+34 
POKE p.port& +15,p.sigBit% 
POKEL p.port&+16,p.sigTask& 
POKEL p.port&+20,p.port&+t24 
POKEL p.port&+28,p.port&+20 
POKE p.port&+34,ASC("P") 
POKE p.port&+35 ,ASCC"R") 
POKE p.port&+36,ASCC"T") 


CALL AddPort(p.port&) 


POKE p.io&+8,5 

POKEL p.i0&+14,p.port& 
POKEW p.i0&+28, 11 

POKEL p.io&+32,f.rastport& 
POKEL p.i0&+36, f.colormapk 
POKEL p.i0&+40,f.vp.modi% 
POKEW p. i0&+44,x% 

POKEW p. i0&+46,y% 

POKEW p. io&+48,breite% 
POKEW p. i0&+50,hoeheX% 
POKEL p. i0o&+52,f.breite%*f1 
POKEL p.i0&+56, f.hoehe%*f2 


d.name$ = "printer.device'"+CHR$(O) 
status% = OpenDevice%(SADD(d.name$),0,p.i0&,0) 
IF status%<>0 THEN 

PRINT "Drucker ist nicht frei." 

CALL FreeMem(p.io&, 100) 

CALL FreeSignal(p.sigBit%) 

EXIT SUB 
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END IF 
fehler% = DolO%(p.io&) 


CALL CloseDevice(p.io&) 

CALL RemPort(p.port&) 

CALL FreeMem(p.io&,100) 

CALL FreeSignal(p.sigBit%) 

PRINT "Fehlercode: ";fehler% 
END SUB 


6.5 Multi-Tasking-Hardcopy 


Der Amiga kennt zwei verschiedene Arten, I/O zu betreiben: 
synchron und asynchron. Bisher arbeiteten wir stets mit syn- 
chroner I/O: Das Programm mußte warten, bis die Hardcopy 
fertiggestellt war. Das hat Vor- wie auch Nachteile: Während des 
Drucks kann das Programm die Zeichnung nicht verändern und 
dadurch zerstören. Andererseits bedeutet das Warten eine lästige 
Zeiteinbuße. 


Abhilfe kann hier die ansynchrone I/O schaffen. Sie sendet die 
Druckdaten zum "printer.device" und gibt die Kontrolle un- 
mittelbar danach wieder an den BASIC-Interpreter zurück. Das 
Programm muß also nicht auf den Drucker warten. Allerdings 
hat diese Methode neben diesem Vorteil einen schwerwiegenden 
Nachteil: äußerst komplexe Programmierung. 


Zur Demonstration dieser eindrucksvollen Programmierung ha- 
ben wir für Sie das Hardcopy-Programm aus Kapitel 6.1 auf 
asynchrone I/O umgeschrieben. Wie bisher haben Sie den 
"Hardcopy"-Befehl zur Hand, der den Inhalt des Ausgabefensters 
zum Drucker schickt. Das Besondere: Ihr BASIC-Programm 
wartet nicht mehr auf den Drucker, sondern setzt seine Arbeit 
unmittelbar fort! 


Am Ende Ihres eigenen Programms muß der Aufruf "Loesch" 
erfolgen, mit dem der noch laufende I/O-Request befriedigt und 
der Systemspeicher zurückgegeben wird. Auch der Drucker wird 
erst hier geschlossen. 
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EEE THEIR 
' 

ı# Programm: Hardcopy V (Multitasking) 

ı# Datum: 13.4.87 

ı# Autor: tob 

ı# Version: 1.0 

'# 





Tr T 


Dies ist eine Multi-Tasking Hardcopy Routine, die die 
gesamten Faehigkeiten des Amigas unter Beweis stellt: 

Das Programm braucht nicht auf den Ausdruck zu warten, 
sondern kann unmittelbar nach dem Aufruf weiterarbeiten, 
waehrend ein unabhaengiger Task das Ausdrucken uebernimmt. 
ACHTUNG: Der gesamte auszudruckende Bereich muss durch die 
Routine zwischengespeichert werden. Das kostet Speicher- 
platz! 


PRINT "Suche die .bmap-Dateien..." 


'IGRAPHICS-Bibliothek 

DECLARE FUNCTION BltBitMap% LIBRARY 
DECLARE FUNCTION AllocRaster& LIBRARY 
'FreeRaster() 


!EXEC-Bibliothek 

DECLARE FUNCTION AllocMem& LIBRARY 
DECLARE FUNCTION OpenDevice% LIBRARY 
DECLARE FUNCTION AllocSignal% LIBRARY 
DECLARE FUNCTION FindTask& LIBRARY 
DECLARE FUNCTION WaitlO% LIBRARY 
DECLARE FUNCTION Check10% LIBRARY 
ıFreeMem( ) 

'CloseDevice() 

ıFreeSignal() 

'AddPort() 

'RemPort() 

'SendiO() 


LIBRARY "exec.Library" 
LIBRARY "graphics. Library" 


init: ı* etwas zeichnen 
CLS 
CIRCLE (300,100), 100 
LINE (10,10)-(200,100),2,bf 


Hardcopy 
demo: ı* Hier koennte Ihr Hauptprogramm stehen! 


WHILE INKEY$="" 
PRINT "Statt dieser Warteschleife koennte" 
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PRINT "hier ein Grafikprogramm stehen, das" 
PRINT "nicht mehr auf den Drucker zu warten! 
PRINT "braucht!" 
PRINT 
PRINT "Beliebige Taste = Abbruch"! 

WEND 


ı%* asynchrone 1/0 versorgen 
loesch 
END 


SUB Hardcopy STATIC 
SHARED p.i0&,p.sigBit%, f.rastport& 
SHARED p.port& 
mem.opt& = 2°0+2°16 


p.io& = AllocMem&(240,mem.opt&) 
p.port& = p.io&+62 

p.rast& = p.i0&+100 

p.bmap& = p.i0&+200 

IF p.io&=0 THEN ERROR 7 

f.fenster& = WINDOW(7) 

f.rastport& = PEEKL(f.fenster&+50) 
f.bitmap& = PEEKL(f.rastport&+4) 
f.breite& = PEEKWCf.fenster&+112) 
f.hoehe% = PEEKW(Cf.fenster&+114) 
f.screen& = PEEKL(f.fenster&+46) 
f.viewport& = f.screen&+44 
f.colormap& = PEEKL(f.viewport&+4) 
f.vp.modi% = PEEKW(f.viewport&+32) 
f.x% = PEEKW(f.bitmap&)*8 
f.y% = PEEKW(f.bitmap&+2) 
f.tiefe% = PEEK(f.bitmap&+5) 


CALL CopyMem(f.rastport&,p.rast&, 100) 
CALL CopyMem( f.bitmap&,p.bmap&,40) 


FOR loop1%=0 TO f.tiefe%-1 
p.plane&(loop1%) = AllocRaster&(f.x%,f.y%) 
IF p.plane&(loop1%)=0 THEN 
FOR loop2%=0 TO loop1%-1 
CALL FreeRaster(p.plane&(loop2%), f.x%,f.y%) 
NEXT loop2% 
CALL FreeMem(p.i0&,240) 
PRINT "Out Of Memory!" 
EXIT SUB 
END IF 
POKEL p.bmap&+8+lo0p1%*4 ,p.plane&(loop1%) 
NEXT loop1% 
tempA$ = SPACE$(f.x%/8) 
pc% = BltBitMap%(f.bitmap&,0,0,p.bmap&,0,0,f.x%,f.y%,200,255, 
SADD(tempA$)) 
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IF pc%<>f.tiefe% THEN ERROR 255 


POKEL p.rast&+4,p.bmap& 
f.rastport& = p.rast& 


p.sigBit% = AllocSignal%(-1) 
IF p.sigBit%=-1 THEN 
PRINT "Kein Signalbit frei!" 
CALL FreeMem(p.i0&,240) 
EXIT SUB 
END IF 
p.sigTask& = FindTask&(0) 


POKE p.port&+8,4 

POKEL p.port&+10,p.port&+34 
POKE p.port&+15,p.sigBitX 
POKEL p.port&+16,p.sigTask& 
POKEL p.port&+20,p.port&+24 
POKEL p.port&+28,p.port&+20 
POKE p.port&+34,ASCC!"P") 
POKE p.port&+35 ,ASCC"R") 
POKE p.port&+36,ASC("T") 


CALL AddPort(p.port&) 


POKE p.io&+8,5 
POKEL p. i0&+14,p.port& 


POKEW p.i0&+28, 11 

POKEL p.i0&+32,f.rastport& 
POKEL p.i0&+36, f.colormap& 
POKEL p.i0&+40,f.vp.modi% 
POKEW p. i0&+48,f.breite% 
POKEW p.i0&+50, f.hoehe% 
POKEL p.i0o&+52,f.breite% 
POKEL p.i0&+56, f.hoehe% 
POKEW p.i0&+60,4 


d.name$ = "printer.device'"+CHR$(0) 
status% = OpenDevice%(SADD(d.name$),0,p.i0&,0) 
IF status%<>0 THEN 
PRINT "Drucker ist nicht frei." 
CALL FreeMem(p.i0&,240) 
CALL FreeSignal(p.sigBit%) 
EXIT SUB 
END IF 


CALL SendIO(p.io&) 
IF PEEK(p.io&+31)<>0 THEN: loesch 
END SUB 


SUB loesch STATIC 
SHARED p.io&,p.sigBit%, f.rastport& 


35322 Das neue Supergrafikbuch —— 


SHARED p.port& 

status% = CheckI0%(p.io&) 

IF status% = 0 THEN 
PRINT "Printer noch in Betrieb!" 
PRINT "Bitte warten!" 


END IF 

fehler% = Wait10%(p.io&) 
L.bitmap«& = PEEKL(f.rastport&+4) 
L.x% = PEEKW(CL.bitmap&)*8 
L.y% = PEEKWCL.bitmap&+2) 
l.tiefe% = PEEK(Cl.bitmap&+5) 


FOR loop1%=1 TO l.tiefe% 
L.plane& = PEEKL(l.bitmap&+4+4*loop1%) 
CALL FreeRaster(l.plane&,1l.x%,1l.y%) 
NEXT Loop1% 


CALL CloseDevice(p.io&) 

CALL RemPort(p.port&) 

CALL FreeMem(p.i0&,240) 

CALL FreeSignal(p.sigBit%) 

PRINT "Error-Code: ";fehler% 
END SUB 


Eine eingehende Programmbeschreibung wäre hier fehl am 
Platze; sie gehört eher in ein Buch über das Exec-Betriebs- 
systems. Hier lediglich in Kurzform, was das Programm tut: 


Da Ihr BASIC-Programm unmittelbar nach Aufruf der Hardcopy 
weiterarbeitet, müssen sowohl Rastport wie auch Bitmap inklu- 
sive aller Bitplanes in einen Hilfsspeicher kopiert werden, damit 
sie ungestört vom weiteren Programmablauf ausgedruckt werden. 
Die Hauptarbeit leisten dabei die Exec-Funktion "CopyMem" 
(Achtung: Kickstart Version 1.2 benutzen!) und die Grafik- 
Routine "BltBitMap". 


1/O-Block und Replyport werden wie gewohnt eingerichtet. Der 
Druckvorgang wird jedoch mit "SendIO" aktiviert. 


Das SUB "loesch" hat die Aufgabe zu überprüfen, ob der Druck- 
vorgang abgeschlossen ist. Das tut "CheckIO%". Ist das Resultat 
null, dann wird noch gedruckt. In jedem Fall wird "WaitIO%" 
aufgerufen. Intern wartet "WaitIO%" auf Vollendung des Drucks 
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und besorgt dann die ReplyMessage. Außerdem liest diese Rou- 
tine das Error-Feld des IO-Blocks und liefert den Wert an das 
Programm. 


Nun werden die Bitplanes und die Systemstrukturen an das 
System zurückgegeben, der Drucker wird geschlossen, das Sig- 
nalbit freigegeben. 
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7. _ Laden von Fremdgrafiken: 
Der IFF-ILBM-Standard 


"IFF" ist eine Abkürzung und steht für "Interchange File For- 
mat". Dieses Format erwuchs aus einer Überlegung, die die Fir- 
men "Electronic Arts" und Commodore Amiga in der Anfangs- 
zeit des Amiga anstellten: Sowohl für Anwender als auch Pro- 
grammierer dieses Computers könnte es nur schädlich sein, wenn 
jedes Grafikprogramm seine Bilder in seiner ganz eigenen Weise 
abspeichern würde. Als Folge könnte man beispielsweise "Gra- 
phicraft"-Bilder nur auf "Graphicraft", "Aegis"-Zeichnungen nur 
unter "Aegis" und "dPrint"-Grafiken nur mit "dPrint"-Program- 
men verwenden. Ein Tausch untereinander wäre unmöglich. 
Deshalb entwickelte man eine Standard-Methode, um Grafiken 
auf Diskette abzuspeichern. Dieses Standard-Format nennt sich 
"ILBM": Interleaved Bitmap. Eine "ILBM"-Dateı unterteilt sıch in 
mehrere Komponenten. Hier die wichtigsten: 


"BMHD" = BitmapHeader 
Identifikation: BMHDnnnn 


Offset Typ Bezeichnung 


+ 000 Word Breite der Grafik 

+ 002 Word Höhe der Grafik 

+ 004 Word X-Position dieser Grafik 
+ 006 Word Y-Position dieser Grafik 


+ 008 Byte Anzahl der Bitplanes (Tiefe) 
+ 009 Byte Masking 

0 = kein Masking 

1 = Masking 

2 = Transparent 

3 = Lasso 
+ 010 Byte Datenkompression 


0 = keine Kompression 
1 = ByteRunl-Algorithmus 
+ 011 Byte unbenutzt 
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Offset Typ Bezeichnung 

+ 012 Word "transparente" Farbe 
+ 014 Byte X-Aspekt 

+ 015 Byte Y-Aspekt 


+ 016 Word Breite der Quellseite 
+ 018 Word Höhe der Quellseite 


"CMAP" = ColormapColorMap 
Identifikation: CMAPnnnn 


Offset Typ Bezeichnung 

+ 001 Byte rot (0-255) 
+ 002 Byte grün (0-255) 
+ 003 Byte blau (0-255) 


"BODY" = Bitplanes 
Identifikation: BODYnnnn 


Bitplane 1 
Bitplane 2 


(...) 


Bitplane n 


"CAMG" = Amiga Viewport Modi (Hi-Res, Lo-Res, Lace, etc.) 
Identifikation: CAMGnnnn 


Offset Typ Bezeichnung 


+ 000 Long Viewport-Modi (siehe Kap. 4) 


sowie die Colorcycle-Information aus Graphicraft: 


"CCRT" - Graphicraft Colorcycle Daten 
Identifikation: "CCRTnnnn" 
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Offset Typ Bezeichnung 
+ 000 Word Richtung 

O=rückwärts 

l1=vorwärts 
+ 002 Byte Start (Nr. des Farbregisters: 0-31) 
+ 003 Byte Ende (Nr. des Farbregisters: 0-31) 
+004 Long Sekunden 
+ 008 Long Micro-Sekunden 


Aus diesen wichtigen Datenblöcken besteht die "ILBM"-Datei 
einer jeden nach diesem Verfahren gespeicherten Grafik. 


Das folgende Programm demonstriert, wie solche Dateien in Ih- 
ren Rechner geladen und dargestellt werden können. Dadurch 
haben Sie die Möglichkeit, beispielsweise ein Anfangsbild für 
Ihr Grafikprogramm (oder ein Programm ganz anderer Natur) 
mit einem der bekannten Zeichenprogramme zu erstellen, um es 
anschließend mit unserer Routine am Programmstart darzustel- 
len. 


Hier das Programm: 


EERHHHHHHEEEHHHHHRRRHEEEHERER 
'# 

'# Programm: Lade ILBM-Bild von Disk 

'# Datum: 15.1.87 

'# Autor: tob 

'# Version: 1.0 

'# 

'# laedt Bilder aller Modi, incl. Hold-And- 
ı# Modify, HalfBrite und Graficraft Color 
ı# Cycle. 

'# 

'# basiert auf dem "ILBM" IFF Interleaved 
ı# Bitmap Standard veroeffentlicht am 

‘# 15. November 1985 von Jerry Morrison 
ı# (Electronic Arts USA) im "Commodore 

‘# Amiga ROM Kernel Manual Volume 2", 

'# CBM Prod.-Nr. 327271-02 rev 2 vom 

'# 12. September 1985, ab Seite H-25 

4 

I IEHEIETEIIHIHIHHIHHIHHEEEEEEEHEREHEHHEER 


PRINT "Suche die .bmap-Dateien..." 
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ıDOS-Bibliothek 
DECLARE FUNCTION 
DECLARE FUNCTION 
DECLARE FUNCTION 
ıxClose() 
ıDelay() 


'EXEC-Bibliothek 


DECLARE FUNCTION 
DECLARE FUNCTION 
DECLARE FUNCTION 
DECLARE FUNCTION 
DECLARE FUNCTION 
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xOpen& LIBRARY 
xRead& LIBRARY 
Seek& LIBRARY 


AllocMem& LIBRARY 
DoI0O% LIBRARY 
OpenDevice% LIBRARY 
AllocSignal% LIBRARY 
FindTask& LIBRARY 


'FreeMem() 


'GRAPHICS-Bibliothek 

DECLARE FUNCTION AllocRaster& LIBRARY 
'SetRast() 

!LoadRGB4C) 


LIBRARY "dos. Library! 
LIBRARY "exec.Library" 
LIBRARY "graphics.library" 


ı* Laden 
CLS 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


main: 
"ILBM-Lader" 


"Laedt Standard-IFF-Grafikdateien in den" 
"Speicher und zeigt das Bild." 


"Der IFF-Lader unterstuetzt das Graficraft Color- 
Cycle," 

"sowie die Darstellung von Hold-And-Modify (4096 
Farben)" 

"und Halfbrite (64 Farben) .." 


PRINT 


PRINT 
PRINT 
PRINT 
PRINT 


NGemaess den ILBM-Standards werden ggf. 'gepackte'!" 
"Grafikdateien nach dem ByteiRun-Verfahren decodiert 
und" 

PRINT "dargestellt." 
PRINT 
PRINT "Auf Wunsch kann das Bild auf einem grafikfaehigen 
Drucker" 

PRINT "ausgedruckt werden." 

LINE INPUT "Name der ILBM-Datei: ";ilbm.file$ 
LINE INPUT "Wollen Sie das Bild ausdrucken? (j/n) 


"»jn$ 
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LadeILBM ilbm.file$ 
ColorCycle -1 


IF jn$="j" THEN 
WINDOW OUTPUT 2 
Hardcopy 

END IF 


WHILE INKEY$="":WEND 
ILBMende 


LIBRARY CLOSE 


SUB LadelLBMCilbm.name$) STATIC 
SHARED disk.handle&,buf.lesen& 
SHARED buf.farbe&,buf.rgb& 
SHARED ilbm.error$,signal% 
SHARED screen. farbe%, amiga.viewport& 
SHARED ilbm.vp.modi& 
SHARED amiga.rastport& 


disk.modeoldfile% 
disk.name$ 


1005 
ilbm.name$+CHR$(0) 


ı* ILBM-Datei oeffnen 
disk.handle&=xOpen&(SADD(disk.name$), 1005) 
IF disk.handle&=0 THEN 
ilbm.error$="ILBM-Datei "+ilbm.name$+" nicht auf Disk/in diesem 
Directory." 
GOTO ilbm.error.A 
END IF 


ı* Disketten Lesebuffer einrichten 

mem. opt&=2"0+2"16 

buf.groesse&=240 

buf.add&=AllocMem&(buf.groesse& ,mem.opt&) 

IF buf.add&=0 THEN 
ilbm.error$="Nicht genuegend Zwischenspeicher frei." 
GOTO ilbm.error.A 

END IF 


ı* Buffer fuer Chunk-Bereiche unterteilen 
buf.lesen& = buf.add&+0*120 
buf.rgb& = buf.add&+1*120 


ı* Handelt es sich um eine ILBM-Datei? 
disk.gelesen&=xRead&(disk.handle&,buf.lesen&, 12) 


ilbm.ID.$5 = m 
FOR loopI%X = 8 TO 11 
ilbm.1D.$ = ilbm.1D.$+CHR$CPEEKCbuf. lesen&+Loop1%)) 


NEXT Loop1% 


360 — Das neue Supergrafikbuch —— 


IF ilbm.1D.$<>"ILBM" THEN 
ilbm.error$="Datei "+ilbm.name$+" ist keine ILBM-Datei ." 
GOTO ilbm.error.A 

END IF 


ı* die Daten-Chunks des ILBM lesen 

WHILE (signal%<>1) AND Cilbm.error$="") 
LeseChunk 

WEND 


ı* Fehler? 

ilbm.error.A: 

IF ilbm.error$<>"" THEN 
WINDOW CLOSE 2 
SCREEN CLOSE 1 
PRINT ilbm.error$ 
EXIT SUB 

END IF 


ı* alles ok! 
CALL LoadRGB4(amiga.viewport&,buf.rgb&,screen. farbe%) 


ı* ILBM-Datei schliessen? 

IF disk.handle&<>0 THEN 
CALL xClose(disk.handle&) 

END IF 

IF buf.add&<>0 THEN 
CALL FreeMem(buf.add&,buff.groesse&) 
buf .add&=0 

END IF 


ı* Viewmodes einstellen 
POKEW amiga.viewport&+32, ilbm.vp.modi& 
END SUB 


SUB ILBMende STATIC 
WINDOW CLOSE 2 
SCREEN CLOSE 1 

END SUB 


SUB ColorCycle(modus%) STATIC 
SHARED ccrt.richtung% 
SHARED ccrt.start%,amiga.colortable& 
SHARED ccrt.ende%, screen. farbeX 
SHARED ccrt.secs&,status% 
SHARED ccrt.mics&,amiga.viewport& 


ı* vorgesehen? 

IF (status% AND 2°4)<>2°4 THEN 
EXIT SUB 

END IF 
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ı* Variablenfelder einrichten 
DIM farbe.original%(screen. farbe%-1) 
DIM farbe.aktuell%(screen. farbe%-1) 


ı* alles ok,alte Farben aus Viewport retten 

FOR loop1%=0 TO screen. farbe%- 1 
farbe.original%(Cloop1%)=PEEKW(amiga.colortable&+2*1o0p1%) 
farbe. aktuel l%(loop1%)=farbe.original%(loop1%) 

NEXT loop1% 


ı* Color Cycling 
WHILE modus%<>0 
ı* Modus? 
IF modus%<O THEN 
in$=INKEY$ 
IF in$<>"W THEN modus%=0 
ELSE 
modus%=modus%- 1 
END IF 


ı* vorwaerts? 
IF ccrt.richtung%=1 THEN 
ccrt.backup%=farbe.aktuell%(ccrt.start%) 
FOR loop1%=ccrt.start%+1 TO ccrt.ende% 
farbe.aktuel l%Cloop1%-1)=farbe.aktuel l%( loop1%) 
NEXT Loop1% 
farbe.aktuell%Cccert.ende%)=ccrt.backup% 


'* rueckwaerts? 
ELSE 
ccrt.backup%=farbe.aktuell%(ccrt.ende%) 
FOR loop1%=ccrt.start%-1 TO ccrt.ende% STEP -1 
farbe.aktuel l%Cloop1%+1)=farbe.aktuel l%Cloop1%) 
NEXT Loop1% 
farbe.aktuellX%(ccrt.start%)=ccrt.backup% 


END IF 
CALL LoadRGB4(amiga.viewport&,VARPTR(Cfarbe.aktuell%(0)), 
screen. farbe%) 
timeout&=50*Cccert.secs&+(cert.mics&/ 10000008) ) 
CALL Delay(timeout&) 

WEND 


ı* Originalfarben wiederherstellen 
CALL LoadRGB4(amiga.viewport&,VARPTR(Cfarbe.original%(0)), 
screen. farbe%) 


ı* Felder zurueckgeben 

ERASE farbe.original% 

ERASE farbe.aktuell% 
END SUB 
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SUB LeseChunk STATIC 


SHARED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 


disk.handle&,buf.lesen& 
buf.farbe&,buf.rgb& 
ilbm.error$,signal% 

screen. farbe%, amiga.viewport& 
ilbm.vp.modi&,status% 
amiga.rastport& 
cecert.richtung% 

ccrt.start%, amiga.colortable& 
ccrt.ende%, screen. farbeX 
cert.secs& 

ccert.mics& 


ı* Chunk-Kopf lesen 
disk.gelesen& = xRead&(disk.handle&,buf.lesen&,8) 


ilbm.chunk& = PEEKL(buf.lesen&+4) 
ilbm.I0.$5 = m 
FOR loop1% = 0 T03 
ilbm.1D.$ = ilbm.1D.$+CHR$CPEEKCbuf.lesen&+loop1%)) 


NEXT loop1% 


ı* Der BitMap-Header (BMHD) ? 


IF ilbm.ID.$="BMHD'" THEN 
ı* Chunk-Inhalt lesen 
disk.gelesen&=xRead&(disk.handle&,buf.lesen&, ilbm.chunk&) 


status%=status% OR 2°0 


ilbm.breiteX = PEEKWCbuf.lesen&+0) 
ilbm.hoehe% = PEEKW(Cbuf.lesen&+t2) 
ilbm.tiefe% = PEEK (buf.lesen&+8) 
ilbm.modus% = PEEK (buf.lesen&+10) 
screen.breite% = PEEKW(buf.lesen&+16) 
screen.hoehe% = PEEKW(buf.lesen&+18) 
ı* daraus Darstellungsparameter bilden 
ilbm.bytes% = ilbm.breite%/8 
screen.bytes% = screen.breite%/8 
screen. farbeX = 2” (ilbm.tiefe%) 


'* alles klarmachen zum Display 


ı* HiRes (High Resolution?) 
IF screen.breite%>320 THEN 
screen.modus%=2 


ELSE 


screen.modus%=1 
END IF 


ı* Interlace (y=0 - 511) PAL only!! 
IF screen.hoehe%>256 THEN screen.modus%=screen.modus%+2 
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ı* ilbm.tiefe%=6 -> HAM/Halfbrite? 

IF ilbm.tiefe%=6 THEN 
ilbm.reg%=-1 

END IF 


tiefe%=ilbm.tiefe%X+ilbm.reg% 
SCREEN 1,screen.breite%,screen.hoehe%, tiefe%, screen.modus% 
WINDOW 2,,,0,1 | 


ı* System Parameter 


amiga.fenster& = WINDOW(7) 

amiga.screen& = PEEKL(amiga.fenster&+46) 
amiga.viewport& = amiga.screen&+44 
amiga.rastport& = amiga.screen&+B4 
amiga.colormap& = PEEKL(amiga.viewport&+4) 
amiga.colortable& = PEEKL(amiga.colormap&+4) 
amiga.bitmapk = PEEKL(amiga.rastport&+4) 


FOR loop1%=0 TO ilbm.tiefe*%-1 
amiga.plane&(loop1%)=PEEKL(amiga.bitmap&+8+100p1%*4) 
NEXT Loop1% 


ı* fuer HAM/Halfbrite 6. Bitplane einrichten 
IF ilbm.reg%=-1 THEN 
ilbm.reg%=0 
newplane&=AllocRaster&(screen.breite%,screen.hoehe%) 
IF newplane&=0 THEN 
ilbm.error$="Kein Speicher fuer 6. Bitplane frei!" 
ELSE 
POKE amiga.bitmap&+5,6 
POKEL amiga.bitmap&+28,newplane® 
END IF 
END IF 


ı* Farb-Tabelle (CMAP) ? 

ELSEIF ilbm.1ID.$="CMAP" THEN 
ı* Chunk-Inhalt lesen 
disk.gelesen&=xRead&(disk.handle&,buf.lesen&, ilbm.chunk&) 


status%=status% OR 2°1 


ı*% RGB-Tabelle errechnen 
FOR loop1% = 0 TO screen.farbe% -1 


farbe.rot% = PEEKCbuf.lesen&+loop1%*3+0) 
farbe.gruen% = PEEK(buf.lesen&+loop1%*3+1) 
farbe.blauX = PEEK(buf.lesen&+lo0p1%*3+2) 
farbe.rgb% = farbe.gruen%+16*farbe.rot%+1/16*farbe. 
blau% 


POKEW buf.rgb&+2*loop1%, farbe.rgb% 
NEXT Loop1% 


ı* Alignment 
IF Cilbm.chunk OR 1)=ilbm.chunk THEN 
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disk.gelesen&=xRead&(disk.handle&,buf.lesen&, 1) 
END IF 


ı* Viewport Modi (CAMG) AMIGA ? 

ELSEIF ilbm.ID.$="CAMG'" THEN 
ı* Chunk-Inhalt lesen 
disk.gelesen&=xRead&(disk.handle&,buf.lesen&, ilbm.chunk&) 


status%=status% OR 2°3 
ilbm.vp.modi& = PEEKL(buf.lesen&) 


ı* Color-Cycle-Daten (CCRT) ? 

ELSEIF ilbm.ID.$="CCRT" THEN 
'* Chunk-Inhalt lesen 
disk.gelesen&=xRead&(disk.handle&,buf.lesen&, ilbm.chunk&) 


status%=status% OR 2°4 


cert.richtung% = PEEKW(buf.lesen&+O0) 
ccert.start% = PEEK (buf.lesen&+2) 
ccrt.ende% = PEEK (buf.lesen&+3) 
ccrt.secs& = PEEKL(buf.lesen&+4) 
cert.mics& = PEEKL(buf.lesen&+8) 


ı* Bitplanes (BODY) ? 
ELSEIF ilbm.1D.$="BODY" THEN 
status%=status% OR 2°2 


'* nicht-komprimierte Daten 
IF ilbm.modus%=0 THEN 
FOR loop1%=0 TO ilbm.hoehe%- 1 
FOR loop2%=0 TO ilbm.tiefe%-1 
screen. zeile&=amiga.plane&( loop2%)+(loop1%*screen.bytes%) 
disk.gelesen&=xRead&(disk.handle&,screen.zeileß&, 
ilbm.bytes%) 
NEXT Loop2% 
NEXT Loop1% 


'* komprimierte Daten (ByteRuni-Encoding) 
ELSEIF ilbm.modus%=1 THEN 
FOR loop1%=0 TO ilbm.hoehe%- 1 
FOR loop2%=0 TO ilbm.tiefe%-1 
screen. zeile&=amiga.plane&( loop2%)+(loop1%*screen.bytes%) 
zaehler%=0 


1% Decodieren 
WHILE zaehler%<ilbm.bytes% 
disk.gelesen& = xRead&(disk.handle&,buf.lesen&, 1) 
code% = PEEK(buf.lesen&) 
'* Codierung 1: lese n Bytes uncodiert 
IF code%<128 THEN 
disk.gelesen& = xRead&(disk.handle&,screen. 
zeile&+zaehler%,code%+1) 
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zaehler% = zaehler%+code%+1 
ı* Codierung 2: wiederhole naechstes Byte (257-n)-mal 
ELSEIF code%>128 THEN 
disk.gelesen& = xRead&(disk.handle&,buf.lesen&, 1) 
disk.byte% = PEEK(buf.lesen&) 
FOR loop3%=zaehler% TO zaehler%+257-code% 
POKE screen.zeile&+loop3%,disk.byte% 
NEXT loop3% 
zaehler%=zaehler%+257-code% 
1% Codierung 3: no operation 
ELSE 
Inop 
END IF 
WEND 
NEXT loop2% 
NEXT loop1% 


ı* andere Decodierungsmethode 
ELSE 

ilbm.error$="Daten-Kompressionsalgorithmus unbekannt „" 
END IF 


"* unwichtigen Chunk verarbeiten (GRAB, DEST, SPRT, etc.) 
ELSE 
ı* gerade Anzahl Bytes lesen 
IF Cilbm.chunk% OR 1)=ilbm.chunk% THEN 
ilbm.chunk%=ilb.chunk%+1 
END IF 


ı* Disk-Cursor verschieben 
mode. current%=0 
stat&=Seek&(disk.handle&, ilbm.chunk%, 0) 
IF stat&=-1 THEN 
ilbm.error$="DOS-Fehler. Seek() schlug fehl." 
END IF 


END IF 


ı* Fehler-Check 

IF disk.gelesen&<O THEN 
ilbm.error$="DOS-Fehler. Read() schlug fehl." 

ı* EOF (End-Of-File) erreicht? 

ELSEIF disk.gelesen&=0 AND ((status% AND 7)<>7) THEN 
ilbm.error$="ILBM-Datenchunks nicht vorhanden." 
signal%=1 

ELSEIF (status% AND 7)=7 THEN 
signal%=1 

END IF 

END SUB 


ı* Dies ist die Hardcopy-Routine I aus diesem Buch, ins ILBM-Prog 
ı* integriert: 
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SUB Hardcopy STATIC 


mem.opt& = 2°0+2°16 

p.io& = AllocMem&(100,mem.opt&) 
p.port& = p.io&+62 

IF p.io& = 0 THEN ERROR 7 

f.fenster& = WINDOW(7) 

f.rastport& = PEEKL(f.fenster&+50) 
f.breite% = PEEKWCf.fenster&+112) 
f.hoehe% = PEEKW(f.fenster&+114) 
f.screen& = PEEKL(f.fenster&+46) 
f.vienwport& = f.screen&+44 
f.colormap& = PEEKL(f.viewport&+4) 
f.vp.modiX = PEEKWCf.viewport&+32) 


p.sigBit% = AllocSignal%(-1) 
IF p.sigBit% = -1 THEN 
PRINT "Kein Signalbit frei!" 
CALL FreeMem(p.io&, 100) 
EXIT SUB 
END IF 
p.sigTask& = FindTask&(0) 


POKE p.port&+8,4 

POKEL p.port&+10,p.port&+34 
POKE p.port&+15,p.sigBit% 
POKEL p.port&+16,p.sigTask& 
POKEL p.port&+20,p.port&+24 
POKEL p.port&+28,p.port&+20 
POKE p.port&+34 ASCC"P") 
POKE p.port&+35 ,ASCC"R") 
POKE p.port&+36,ASC("T") 


CALL AddPort(p.port&) 


POKE p.10&+8,5 

POKEL p. io&+14,p.port& 
POKEW p.i0&+28, 11 

POKEL p. i0&+32,f.rastport& 
POKEL p.i0&+36, f.colormap& 
POKEL p.i0&+40,f.vp.modi% 
POKEW p. i0o&+48,f.breite% 
POKEW p.i10&+50, f.hoehe% 
POKEL p.io&+52,f.breite% 
POKEL p.i0&+56, f.hoehe% 
POKEW p.i0&+60,4 


d.name$ = "printer.device'"+CHR$(0) 
statusX = OpenDevice%(SADD(d.name$),0,p.i0&,0) 
IF status%<>0 THEN 
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PRINT "Drucker ist nicht frei." 
CALL FreeMem(p.i0&,100) 
CALL FreeSignal(p.sigBit%) 
EXIT SUB 

END IF 


fehler% = Dol0%(p.io&) 


CALL CloseDevice(p.io&) 

CALL RemPort(p.port&) 

CALL FreeMem(p. io&, 100) 

CALL FreeSignal(p.sigBit%) 

PRINT "Fehlercode: ";fehler% 
END SUB 


Für Sie sind die SUBs "LadeILBM", "ColorCycle" und "ILB- 
Mende" von Interesse. "LadeILBM" verlangt in einem String den 
Namen des ILBM-Bildes auf Diskette, das geladen werden soll. 
Natürlich muß sich das Bild im aktiven Diskettenverzeichnis 
befinden, um auch gefunden zu werden (CHDIR "Verzeichnis"). 
Dieses SUB lädt das Bild und zeigt es auf dem Bildschirm an. 
Nun können Sie das SUB "ColorCycle" aufrufen. Sollte ein 
"CCRT"-Colorcycle-Datenblock gefunden worden sein, über- 
nimmt das Programm das Cycling, was dem Bild einen Effekt 
der Bewegung verleiht. Das SUB verlangt als Parameter einen 
Integer-Wert. Ist dieser negativ, dann tauscht der Amiga solange 
die Farben, bis eine beliebige Taste gedrückt wird. Ist er positiv, 
dann cyclet der Amiga das Bild Wert-mal. Das SUB "ILBMende" 
schließlich beendet das Display des Bildes und schließt Screen 
und Fenster. 


Neu in diesem Programm sind die Routinen der DOS-Bibliothek. 
Leider läßt sich das Laden von ILBM-Dateien nicht über die 
eingebauten OPEN/INPUT#/CLOSE Befehle des Amiga be- 
werkstelligen, denn diese unterschlagen Nullen in den Daten. 
Hier eine kurze Erklärung der verwendeten DOS-Routinen: 


name$=name$+CHR$(0) 
disk.handle&=xOpen&(SADD(name$) , 1005) 


name$: Name der zu öffnenden Datei 
1006: ModeOldFile - Datei existiert bereits 
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1006: ModeNewFile - neue Datei dieses Namens wird erzeugt 
disk.handle&: BPTR (Zeiger/4) auf Handler Datenblock wenn 0, dann 
schlug xOpen fehl. 


gelesen&=xRead(disk.handle&,buffer&,bytes&) 


disk.handle&: Adresse vom xOpen- Aufruf 

buffer&: Adresse eines freien Speicherbereiches 

bytes&: Anzahl der von der aktuellen Disk-Cursor-Position zu 
lesenden Bytes, die allesamt in den Pufferspeicher passen 
müssen! 

gelesen&: Anzahl der gelesenen Bytes 


=0: EOF (End Of File) 
kleiner als O0: Lesefehler 


oldpos&=Seek(disk.handle&,offset% , modus%) 


disk.handle&: Adresse vom xOpen-Aufruf 


offset%: Anzahl der Bytes, um die der Disk-Cursor verschoben 
werden soll 
modus%: 0 = ab augenblicklicher Position 


-1 = ab Datei-Anfang 
1 = ab Datei-Ende 


CALL xClose(disk.handle&) 


disk.handle&: Handle vom xOpen-Befehl; schließt Datei 


CALL Delay(ticks). 


tick = 1/50 Sekunde 
Microsekunde = 1/1000000 Sekunde 


Wartet angegebene Zeit (jedoch nicht busy-waiting; während das 
Programm wartet, wird zusätzliche Rechenzeit für das System 
frei.) 
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Besonderheiten des Programms: 


Dieses Programm unterstützt nicht nur die AmigaBASIC Display 
Modi wie Lo-Res, Hi-Res und Interlace. Zusätzlich können auch 
ILBM-Grafiken im Halfbrite- (64 Farben) und HAM-Modus 
(4096 Farben) dargestellt werden. Beide Modi arbeiten mit 6 
Bitplanes. Tritt einer der beiden Modi auf, wird eine sechste 
Bitplane in den Display-Screen eingebaut. Diese Bitplane wird 
nirgendwo durch "FreeRaster" zurückgegeben, denn sobald der 
"SCREEN CLOSE"-Befehl den neuen Screen schließt, werden 
automatisch alle Bitplanes, auch die nachträglich eingebaute 
sechste, entfernt. 


Das Programm ist in der Lage, komprimierte Bitplanes nach dem 
"ByteRunl"-Verfahren zu dekodieren. Bei diesem Verfahren 
werden zwei Kontrollcodes verwendet: Ist das gelesene Byte 
kleiner als 128, dann werden der Byte-Anzahl folgende Bytes 
direkt übernommen. Ist das Byte größer als 128, dann wird das 
nächstfolgende Byte (257-Byte)-mal wiederholt (normalerweise 
wird mit signed bytes von -127 bis +128 gearbeitet, daher die 
etwas merkwürdige Umrechnung). Ist das Byte =128, passiert 
nichts (NOP). 
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8. Die Anwendung: 
1024x1024-Punkte-Malprogramm 


In den vorangegangenen Kapiteln haben Sie die verschiedenen 
Grafik-Systemkomponenten des Amiga kennen- und zu pro- 
grammieren gelernt. Als Abschluß haben wir für Sie ein Pro- 
gramm erstellt, das einmal die Möglichkeiten der Superbitmap- 
Layer anhand eines kleinen Malprogramms aufzeigt. Mit einge- 
flossen sind natürlich auch Kenntnisse der Amiga-Zeichensätze, 
der Zeichenmodi und der verschiedenen Schriftarten. Hier unser 
Malomat - und was "er" kann: 


- voll maus- und menügesteuert 
- bis zu 1024x1024 Punkte große Zeichnungen 
- Softscrolling über die gesamte Zeichenfläche 
- Kreise, Linien, Rechtecke in bewährter Rubberband-Technik 
- Freihand-Zeichnen 
- Textausgabe in JAMI, JAM2, Complement und Inverse 
- bis zu 19 verschiedene Zeichensätze 
- OQutline-, Kursiv-, Fett-, Underline-Text 
- luxuriöse Hardcopy-Funktionen: 
- Ausdruck der gesamten 1024x1024-Punkte-Grafik 
- Ausschnittsvergrößerung/-verkleinerung 
- Verzerrung 
- Flächen füllen 
- Zeichengrid 
- Block löschen 
- Kopieren von Bildschirmausschnitten 
- selbstdefinierte Pinsel und Pattern 


Wegen der enormen Abmessungen der Bitplanes arbeitet dieses 
Zeichenprogramm mit nur einer einzigen Bitplane, Zeichnungen 
erscheinen daher in schwarz/weiß. Dieses Programm ist wie ge- 
schaffen für Zeichnungen, die anschließend auf den Drucker 
ausgegeben werden sollen. Wegen der großen Zeichenfläche las- 
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sen sich auch detaillierte Grafiken erstellen, die dann in Origi- 
nalgröße oder verkleinert auf einen grafikfähigen Drucker aus- 
gegeben werden können. 


ER ERESEETHERIERTEHEOHHRHOHEREHEREN 
ı4 

‘# Programm: Superbitmap Zeichenprogramm 
ı# Datum: 16.4.87 


ı# Autor: tob 
ı# Version: 1.0 
5 







 -..1.. 


PRINT "Suche die .bmap-Dateien..." 


'IGRAPHICS-Bibliothek 

DECLARE FUNCTION AskSoftStyle& LIBRARY 
DECLARE FUNCTION SetSoftStyle& LIBRARY 
DECLARE FUNCTION OpenFont& LIBRARY 
DECLARE FUNCTION AllocRaster& LIBRARY 


'EXEC-Bibliothek 

DECLARE FUNCTION DOIO& LIBRARY 
DECLARE FUNCTION OpenDevice& LIBRARY 
DECLARE FUNCTION AllocSignal& LIBRARY 
DECLARE FUNCTION FindTask& LIBRARY 
DECLARE FUNCTION AllocMem& LIBRARY 


ıDISKFONT-Bibliothek 
DECLARE FUNCTION OpenDiskFont& LIBRARY 
DECLARE FUNCTION AvailFonts& LIBRARY 


"LAYERS-Bibliothek 

DECLARE FUNCTION CreateBehindLayer& LIBRARY 
DECLARE FUNCTION UpFrontLayer& LIBRARY 
DECLARE FUNCTION BehindLayer& LIBRARY 


LIBRARY "layers.Library" 
LIBRARY "graphics.Library" 
LIBRARY "exec.Library" 
LIBRARY "intuition. Library" 
LIBRARY "diskfont.Library" 


setup: ı* Es geht los: 
PRINT "Mal-O-Mat Zeichenprogramm!" 
PRINT "= unnnnnunnnennnn nn " 
PRINT 
PRINT "Wollen Sie mit einem LoRes(1) oder HiRes(2) Schirm 
arbeiten!" 
PRINT "(keinerlei Einfluss auf Groesse der Zeichenflaeche)?" 
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PRINT 
LINE INPUT "Ihre Wahl (1 oder 2) --> ";jn$ 
IF jn$="2" THEN 


scrWeite%X = 640 

scrMode& = 2 
ELSE 

scrWeite% = 320 

scrMode& = 1 
END IF 

initPar: ı* Screen Parameter 

scrHoehe% = 256 
scrTiefeX% = 1 
scrNr% = 1 
WBenchScrNr% = -1 


ı* Fenster Parameter 
windWeite% = scrWeiteX-9 


windHoehe% = scrHoehe%-26 
windNr% = 1 

windTitle$ = "Arbeitsflaeche" 
windMode% = 16 

ı* Fenster Gadgets 

XoffsetX = 15 

GadX% = windWeite%-Xoffset%+3 
GadY% = 11 

GadsX% = Xoffset%-3 
GadsY% = GadsX%- 1 
GadZahl% =5 

GadToleranz% = 1 

Gad$(0) = tn 

Gad$(1) = 1yı 

Gad$(2) = ng 

Gad$(3) = I, 

Gad$(4) = nyu 

'* CAD Super Bitmap 
superWeite& = 800 
superHoehef% = 400 
superFflag = 4 

ı* Layer Groesse 

layMinX%X% = 3 

layMiny% = 11 

LayMaxX% = windWeite%-8-Xoffset% 
LlayMaxY% = windHoehe% 

ı* Drawing Mode 

draw% =4 

modus$ = "FREIHAND" 

drMd% =0 
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style& =0 
swapper% = 1 
ki% = 1 
gridiX =1 
gridd% =1 


fontHoehe% = 8 
DIM get.array%(1) 


ı* Printer-Parameter 


printX0% =0 
printY0% =0 
printX1% = superWeite% 
printY1% = superHoehe% 
printSpec% = 4 


ı* Screen und Fenster oeffnen 

SCREEN scrNr%,scrWeite%,scrHoehe%, scrTiefe%, scrMode% 

WINDOW windNr%,windTitle$,(0,0)-(windWeite%, windHoehe%), 
windMode%, scrNr% 

WINDOW OUTPUT windNr% 

PALETTE 1,0,0,0 

PALETTE 0,1,1,1 


DIM area.pat%(3):DIM full%C1) 


area.pat%(0) = &H1111 
area.pat%(1) = &H2222 
area.pat%(2) = &H4ALL 
area.pat%(3) = &H8888 


PATTERN ‚area.pat% 
PAINT (100,50),1,1 
full%CO)=&HFFFF 
full%C1)=full%(0) 
PATTERN ‚full% 

ı* TmpRas einrichten 


buffergroesse& = superWeite%*superHoehe%/8 
buffer& PEEKL(WINDOW(8)+12) 
IF buffer&<>0 THEN 
fillflag% = 1 
mem& = PEEKL(buffer&) 
size& = PEEKL(buffer&+4) 
CALL FreeMem(mem&,size 
opt& = 2°0+2°1+2°16 
buf& = AllocMem&(buffergroesse&, opt&) 
IF buf&=0 THEN 
fillflag%=0 
POKEL WINDOW(8)+12,0 
ELSE 
POKEL buffer&,buf& 
POKEL buffer&+4 ,buffergroesse®& 
END IF 
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ELSE 
fillflag%=0 
END IF 
initSys: ı* System-Parameter lesen 
windAdd& = WINDOW(7) 
scrAdd& = PEEKL(windAdd&+46) 
scrViewPort& = scrAdd&+44 
scrColMap& = PEEKL(scrViewPort&+4) 
scrBitMap& = scrAdd&+184 
scrLayerInfo& = scrAdd&+224 
scrMode% = PEEKW(scrViewPort&+32) 
font& = PEEKL(WINDOW(8)+52) 


initSBMap: '* Superbitmap schaffen 
opt& = 2°0+2°1+2°16 
superBitmap& = AllocMem&(40,opt&) 
IF superBitmap&=0 THEN 
PRINT "Hm. Nicht mal 40 Bytes, nein?" 
ERROR 7 
END IF 


ı* „..und in Betrieb nehmen 
CALL InitBitMap(superBitmap&,scrTiefe%, superWeite%, super 
Hoehe%) 
superPlane& = AllocRaster&(superWeite%, superHoehe%) 
IF superPlane& = 0 THEN 
PRINT "Kein Plaaaaatz!" 
CALL FreeMem(superBitmap&,40) 
ERROR 7 
END IF 
POKEL superBitmap&+8,superPlane& 


ı*% Superbitmap-Layer oeffnen 
SuperLayer& = CreateBehindLayer&(scrLayerInfo&,scrBitMap&, 
LlayMinX%,layMinY%, layMaxX%, layMaxY%, 
superFlag%, superBitmap&) 
IF Superlayer& = O0 THEN 
PRINT "Heute keine Layer!" 
CALL FreeRaster(superPlane&, superWeite%, superHoehe%) 
CALL FreeMem(superBitmap&,40) 
ERROR 7 
END IF 


ı* neuer RastPort 
SuperRast& = PEEKL(SuperLayer&+12) 


initPrint: '* Drucker initialisieren 
opt& = 2°0+2°16 
pio& = AllocMem&(100,opt&) 
IF pio&<>0 THEN 
port& = pio&+62 
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sigBit% = AllocSignal&(-1) 

IF sigBit%<>-1 THEN 
sigTask& = FindTask&(0) 
POKE port&+8,4 
POKEL port&+10,port&+34 
POKE port&+15,sigBit% 
POKEL port&+16,sigTask& 
POKEL port&+20,port&+24 
POKEL port&+28,port&+20 
POKEL port&+34, 13475727368 
CALL AddPort(port&) 
POKE pio&+t8,5 
POKEL pio&+14,port& 
POKEW pio&+18,12 
POKEW pi0&+28, 11 
POKEL pio&+32,SuperRast& 
POKEL pio&+36,scrColMap& 
POKEL pio&+40,scrMode% 
POKEW pio&+48,superWeite% 
POKEW pi0&+50, superHoehe% 
POKEL pio&+52,superWeite% 
POKEL pio&+56,superHoehe% 
POKEW pi0&+60,4 

ELSE 
printflag% = 1 
CALL FreeMem(pio&, 100) 


END IF 
ELSE 
printflag% = 1 
END IF 
prepare: ı* Unsere Move-Gadgets zeichnen 


CALL SetDrMd(WINDOW(8),5) 

FOR loop% = 0 TO GadZahl%- 1 
LINE (GadX%,GadY%+(GadSY%+5)*loop%)- (GadX%+GadSX%,GadY%+ 

GadSY%+(GadSY%+5)*lLoop%) ,1,bf 

gadMaus%(loop%) = GadY%+(GadSY%+5)*lLoop%-4-GadToleranz% 
CALL Move(WINDOW(8), GadX%+3 , GadY%+( (GadSY%+5)*Loop%)+8) 
PRINT Gad$(loopX). 

NEXT loop% 

CALL SetDrMd(WINDOW(8),1) 


1% Zeichenflaeche vorbereiten 
CALL SetRast(SuperRast&,0) 


ii Kalibrierung zeichnen 
FOR loop% = 0 TO windWeite%-Xoffset% STEP 3 
IF loop%/15 = INTCLoop%/15) THEN 
LINE (loop%, windHoehe%) - (loop%, windHoehe%- 10) 
ELSE 
LINE (loop%,windHoehe%) -(loop%,windHoehe%-5) 
END IF 





1024x1024-Punkte-Malprogramm ———— — 377 


NEXT Loop% 
FOR loop% = O0 TO windHoehe% STEP 2 
IF loop%/10 = INT(loop%/10) THEN 
LINE (windWeite%-Xoffset%, loop%) - (windWeite%-10X-off 
set%, loop%) 
ELSE 
LINE (windWeite%-Xoffset%, Loop%)- (windWeite%-5-Xoff 
set%, loop%) 
END IF 
NEXT loop% 


ı* Layer hervorzaubern 
e& = UpFrontLayer&(scrLayerInfo&,SuperLayer&) 
GOSUB newpointer 


ı% Layer unaufdeckbar machen und integrieren 
POKEL SuperLayer&+40, windAdd& 

backup.rast& = PEEKL(SuperLayer&+12) 
backup.layer& = PEEKL(WINDOW(8)) 

POKEL SuperLayer&+12,WINDOW(8) 

POKEL WINDOW(8),SuperLayer& 
SuperRast&=WINDOW(8) 


GOSUB koord 


ı* Menue-Steuerung 

MENU 1,0,1,"Service" 
MENU 1,1,1,"Screen loeschen!" 
MENU 1,2,1,"Koordinaten Ein! 


1 
1 
1 
1,"Complement u 
1 
1 


MENU 1,10,1,"kursiv " 
MENU 1,11,1,"fett a 
MENU 1,12,1,"unterstrichen " 
MENU 1,13,1,"outline u 
MENU 1,14,1,"----------....- u 
MENU 1,15,1,"s/w -> w/s " 
MENU 1,16,1,"Kopfleiste ein/aus"! 
MENU 1,17,1,Q uı Tr ı 
MENU 2,0,1,'"Zeichnen!"! 

MENU 2,1,1,"Kreis 

MENU 2,2,1,"Rechteck" 

MENU 2,3,1,"Linien " 

MENU 2,4,1,"freihand!" 

MENU 2,5,1,"Text u 

MENU 2,6,1,"Loeschen! 

MENU 2,7, fillflag%,"Fill “ 
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MENU 2,8,1,"Raster/Grid" 
MENU 2,9,1,"Grid Reset " 
MENU 2,10,1,"Get Area " 
MENU 2 ‚11,1,"Paint Area " 
MENU 3,0,1,"Font!"" 
MENU 3,1,1,"Fonts laden!" 
MENU 4,0,1,"1/0" 
MENU 4,1,1,'"Drucken!" 
MENU 4,2,1,"Param. " 
ON MENU GOSUB Menuctri 
MENU ON 
mcp: ı* Master Control Program (Tron laesst gruessen...) 
WHILE forever=forever 
test%=MOUSE (0) 
mx%=MOUSE (1) 
my%=MOUSE (2) 


GOSUB updateDisp 
CALL SetDrMd(SuperRast&,drMd%) 
enable%=AskSoftStyle&(SuperRast&) 
n&=SetSoftStyle&(SuperRast&,style%,enable%) 
ı* zeichnen! 
IF mx%>layMinX% AND mx%<layMaxX% AND test%<O THEN 
IF draw%=4 THEN 
GOSUB freedraw 
ELSEIF draw%=10 THEN 
GOSUB paintdraw 
ELSEIF draw%=5 THEN 
GOSUB drautext 
ELSEIF draw%=7 THEN 
GOSUB filler 
ELSE 
GOSUB drawit 
IF draw%=3 AND fetch%=1 THEN 
printX0% = cX%+subox% 
printX1% = 1+cX%+subox%+oldrcX% 
printY0O%X = cY%+suboy% 
printY1% = 1+cY%+suboy%+toldrcY% 
GOTO continue 
ELSEIF draw%=3 AND grid%=1 THEN 
x1%=cX%+subox% 
y1%=cY%+suboy% 
x2%=cX%+subox%+oldrcX% 
ye%=cY%+suboy%+oldrcY% 
IF x1%>x2% THEN SWAP x1%,x2% 
IF y1%>y2% THEN SWAP y1%,y2% 
breit%= x2%-x1% 
hoch% = y2%-y1% 
IF copy%=0 THEN 
grid1%=breit‘ 
grid2%=hoch% 
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ELSE 
g9.size&=6+(hoch%+1)*2*INTC(Cbreit%+16)/16) 
IF g.size&>(FRECO)-1000) THEN 
BEEP 
ELSE 
ERASE get.array% 
DIM get.array%(g.size&/2) 
GET (x1%,y1%)-(x2%,y2%) ‚get.array% 
END IF 
END IF 
END IF 
END IF 
ELSEIF (test%<O AND mx%>layMaxX%) THEN 
ı* Scroll-Gadgets betaetigt? 
IF my%>gadMaus%(4) THEN 
GOSUB ScrollHome 
ELSEIF my%>gadMaus%(3) THEN '<- 
GOSUB ScrollLinks 
ELSEIF my%>gadMaus%(2) THEN ' 
GOSUB ScrollRechts 
ELSEIF my%>gadMaus%(1) THEN "up 
GOSUB ScrollHoch 
ELSEIF my%>gadMaus%(0) THEN "down 
-  GOSUB ScrollRunter 
END IF 
END IF 
WEND 


' 
v 


deleteSys: '* System entfernen 
buf&=PEEKL(WINDOW(8)+12) 

IF buf&<>O THEN 
buffer&=PEEKL(buf&) 
size&=PEEKL(buf&+4) 

CALL FreeMem(buffer&,size&) 
POKEL WINDOW(8)+12,0 

END IF 

IF ptr&<>O THEN 
CALL ClearPointer(WINDOW(7)) 
CALL FreeMem(ptr&,20) 

END IF 

POKEL SuperLayer&+12,backup.rast& 

POKEL WINDOW(8),backup.layer& 

POKEL SuperLayer&+40,0 


CALL DeleteLayer(scrLayerInfo&,SuperLayer&) 
CALL FreeRaster(superPlane&, superWeite%, superHoehe%) 
CALL FreeMem(superBitmap&,40) 


SCREEN CLOSE scrNr% 
WINDOW windNr%,"hil",, ‚WBenchScrNr% 


IF printflag%<>1 THEN 
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CALL RemPort(port&) 

CALL FreeSignal(sigBit%) 

CALL FreeMem(pio&, 100) 
END IF 


IF oldFont&<>0 THEN CALL CloseFont(oldFont&) 
LIBRARY CLOSE 
END 


ıkk%* Das war's. Hier folgen wichtige Unterroutinen! *** 


Menuctrl: '* Menue wurde benutzt. Was nun? 
menuld = MENU(O) 
menultem = MENUC1) 


IF menuld=1 THEN 
IF menultem = 1 THEN 
CALL SetRast(SuperRast&,0) 
ELSEIF menultem = 2 THEN 
GOSUB koord 
ELSEIF menultem = 4 THEN 
drMd%=0 
ELSEIF menultem = 5 THEN 
drMd%=drMd% OR 1 
ELSEIF menultem = 6 THEN 
drMd%=drMd% OR 2 
ELSEIF menultem = 7 THEN 
drMd%=drMd% OR 4 
ELSEIF menultem = 9 THEN 
style%=0:drMd%=0:outl ine%=0 
ELSEIF menultem = 10 THEN 
style%=style% OR 4 
ELSEIF menultem = 11 THEN 
style%=style% OR 2 
ELSEIF menultem = 12 THEN 
style%=style% OR 1 
ELSEIF menultem = 13 THEN 
outline%=1 
ELSEIF menultem 
GOSUB swapcol 
ELSEIF menultem = 16 THEN 
IF kl%=0 THEN 
kl%=1 
ELSE 
kl%=0 
END IF 
ELSEIF menultem = 17 THEN 
GOTO deleteSys 
END IF 
ELSEIF menuld = 2 THEN 
grid% = O 
copy% = 0 


15 THEN 
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IF menultem = 1 THEN 
modus$ = "CIRCLE"" 
draw = 1 

ELSEIF menultem = 2 THEN 
modus$ = "RECHTECK" 
draw = 3 

ELSEIF menultem = 3 THEN 
modus$ = "LINIEN" 
draw = 2 

ELSEIF menultem = 4 THEN 
modus$ = "FREIHAND" 
draw =4 

ELSEIF menultem = 5 THEN 
modus$ = "TEXT" 
draw =5 

ELSEIF menultem = 6 THEN 
modus$ = "LOESCHEN" 


draw = 6 

ELSEIF menultem = 7 THEN 
modus$ = "FILL" 
draw = 7 

ELSEIF menultem = 8 THEN 
modus$ = "GRID!" 
gri = 1 
drau% = 3 

ELSEIF menultem = 9 THEN 
gridi% = 1 
grid2% = 1 

ELSEIF menultem = 10 THEN 
modus$ = "GET AREA" 
draw = 3 
gri = 1 
copy% = 1 


ELSEIF menultem = 11 THEN 
modus$ = "PAINT" 
draw& = 10 

END IF 

ELSEIF menuld = 3 THEN 

IF fontflag% = 0 THEN 
GOSUB loadFonts 

ELSE 
GOSUB loadFont 

END IF 

ELSEIF menuld=4 THEN 

IF menultem=1 THEN 

IF printflag%<>1 THEN 
GOSUB hardcopy 

ELSE 
BEEP 

END IF 

ELSEIF menultem=2 THEN 
GOSUB changePrint 
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END IF 
END IF 


IF kl%=1 THEN 
aus$ = modus$+" / Kopfleiste ausgeschaltet."+CHR$(O) 
CALL WaitTOr 
CALL SetWindowTitles(windAdd&,SADD(aus$), -1) 

END IF 


RETURN 


koord: ı* Koordinatenkreuz zeichnen 

CALL SetDrMd(WINDOW(8),2) 

POKEW SuperRast&+34 ,&HAAAA 

FOR loop%=0 TO superWeite% STEP 50 
LINE (loop%,0)-(loop%, superHoehe%) 

NEXT loop% 

FOR loop%=0 TO superHoehe% STEP 50 
LINE (0,loop%)-(superWeite%, loop%) 

NEXT loop% 

POKEW SuperRast&+34,&HFFFF 

CALL SetDrMd(WINDOW(8) ,drMd%) 

RETURN 


drawit: ı* Multi-Funktions-Zeichner mit Rubberband 
cX%=MOUSE (1) 
cY%=MOUSE (2) 
test%=MOUSE (0) 
mx%=1:my%=1 
CCX%=0:ccY%=0 
oldcX%=0:0ldcY%=0 
rcX%=0:rcY%=0 
oldrcX%=0:oldrcY%=0 
CALL SetDrMd(SuperRast&,2) 
subox%=0x% 
suboy%=0y% 
Loopflag%=0 
IF (cX% MOD grid1%)>(.5*grid1%) THEN cX%=cX%+grid1% 
IF (cY% MOD grid2%)>(.5*grid2%) THEN cY%=cY%+grid2% 
cX% = cX%-(cX% MOD grid1%) 
cY% = cY%-(cY% MOD grid2%) 
GOSUB oldpos 


WHILE test%<0 
test%=MOUSE (0) 
oldx%=mx% 
oldy%=my% 
oldcexX%=ccX% 
oldcY%=ccY% 
oldrcX%=rcX% 
oldrcY%=rcY% 
mx%=MOUSE (1) 
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my%=MOUSE (2) 
IF (mx% MOD grid1%)>(.5*grid1%) THEN mx%=mx%+ 
grid1% 
IF (my% MOD -grid2%)>(.5*grid2%) THEN my%=my%+ 
grid2% 
mx%=mx%- (mx% MOD grid1%) 
my%=my%- (my% MOD grid2%) 
IF mı%=oldx% AND my%=oldy% AND s.fl%=0 THEN 
rep. flag%=1 
ELSE 
rep. flag%=0 
s.fl%=0 
END IF 
IF rep.flag%=0 THEN 
GOSUB oldpos 
END IF 
IF mx%<layMinX%+5 THEN GOSUB ScrollRechts 
IF mx%>layMaxX%-15 THEN GOSUB ScrollLinks 
IF my%<layMinY%+5 THEN GOSUB ScrollRunter 
IF my%>layMaxY%-20 THEN GOSUB ScrollHoch 
GOSUB updateDisp 


CCX%=ABS (mx%- cX%)+ABS(0x%- subox%) 
ccY%=ABS (my%- cY%)+ABS(oy%-suboy%) 
rcY%=my%- cY%+(oy%-suboy%) 
rcX%=mx%- cX%+(0x%- subox%) 
IF rep.flag%=0 THEN 

GOSUB newpos 
END IF 


WEND 

GOSUB newpos 

CALL SetDrMd(SuperRast&, 1) 

IF draw%=6 THEN 
x1%=cX%+subox% 
y1%=cY%+suboy% 
x2%=cX%+subox%+oldrcX% 
y2%=cY%+suboy%+toldrcY% 
IIF x2%<x1% THEN SWAP x1%,x2% 
IF y2%<y1% THEN SWAP y1%,y2% 
x1%=x1%+1:y1%=y1%+1 
x2%=X2%- 1: y2%=y2%-1 
CALL SetAPen(WINDOW(8),0) 
CALL RectFillCWINDOW(C8),x1%,y1%,x2%,y2%) 
CALL SetAPen(WINDOW(B), 1) 

ELSEIF (draw%=3 AND (fetch%<>0 OR grid%<>0)) THEN 
REM nichts 

ELSE 
GOSUB newpos 

END IF 


RETURN 
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newpos: 


oldpos: 


filler: 


freedraw: 


paintdraw: 
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IF draw%=1 THEN 
CALL DrawEllipse(SuperRast&, cX%+subox%, cY%+suboy%, 
CcX%,ccY%) 
ELSEIF draw%=2 THEN 
LINE (cX%+subox%, cY%+suboy%) - (cX%+subox%t+rcX%,cY%+ 
suboy%+rcY%) ,swapper% 
ELSEIF draw%=3 OR draw%=6 THEN 
LINE (cX%+subox%, cY%+suboy%) -(cX%+subox%+rcX%,cY%+ 
suboyX+rcY%) ,swapper%,b 
END IF 
RETURN 


IF draw%=1 THEN 
CALL DrawEllipse(SuperRast&, cX%+subox%, cY%+suboy%, 
oldcX%,oldcY%) 
ELSEIF draw%=2 THEN 
LINE (cX%+subox%,cY%+suboy%)- (cX%+subox%+oldrcX%, 
cY%+suboy%+oldrcY%)  ,swapper% 
ELSEIF draw%=3 OR draw%=6 THEN 
LINE (cX%+subox% , cY%+suboy%) - (cX%+subox%toldrcX%, 
cY%+suboy%+oldrcY%)  swapper%,b 
END IF 
RETURN 
ı* Fuellroutine 
test%=MOUSE (0) 
oldx%=MOUSE (1) 
oldy%=MOUSE (2) 
PAINT (ox%+oldx%,oy%+toldy%),1,1 
RETURN 


ı* Freihand-Zeichner 
test% = MOUSE(O) 
oldx% = MOUSE(1) 
oldy%& = MOUSE(2) 
WHILE test%<O 


oldx% = mı% 
oldy% = my% 
mx% = MOUSE(1) 


my% = MOUSE(2) 
IF mx%<layMinX%+10 THEN GOSUB ScrollRechts 
IF mx%>layMaxX%-20 THEN GOSUB ScrollLinks 
IF my%<layMinY%+10 THEN GOSUB ScrollRunter 
IF my%>layMaxY%-25 THEN GOSUB ScrollHoch 
LINE (ox%+oldx%,oy%+oldy%)- (ox%+mx%, oy%+my%) ,swapper% 
GOSUB updateDisp 
test% = MOUSE(0) 
WEND 
RETURN 


ı* Mit Image zeichnen 
test%=MOUSE (0) 
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ScrollHome: 


ScrollRechts: 


ScrollLinks: 


ScrollHoch: 


WHILE test%<O 
mk% = MOUSE(1) 
my% = MOUSE(2) 
IF mx%<layMinX%+10 THEN GOSUB ScrollRechts 
IF mx%>layMaxX%-20 THEN GOSUB ScrollLinks 
IF my%<layMinY%+10 THEN GOSUB ScrollRunter 
IF my%>layMaxY%-25 THEN GOSUB ScrollHoch 
mı% = mx%-(mi% MOD grid1%) 
my = my%-(my% MOD grid2%) 
IF mx%<layMinX%+10 THEN GOSUB ScrollRechts 
IF mx%>layMaxX%-20 THEN GOSUB ScrollLinks 
IF my%<layMinY%+10 THEN GOSUB ScrollRunter 
IF my%>layMaxY%-25 THEN GOSUB ScrollHoch 


test% = MOUSE(0) 

PUT (mxX+ox% ,my%+oy%) ,get.array%,OR 
WEND 
RETURN 


x%=-0%X% 

yA=-0y% 

OX%=0 

oy%=0 

GOSUB ScrollDisplay 
RETURN 


IF 0x%>grid1%-1 THEN 
x% = -gridi% 
0oX% = 0x%-gridi% 
GOSUB ScrollDisplay 

END IF 

RETURN 


IF ox%<(superWeite%-layMaxX%+layMinX%-grid1%) THEN 
x% = gridi1% 
IF textWidth%<>0 THEN 
IF ox%+textWidth%<(superWeite%- layMaxX%+layMin%) 
THEN 
x% = textWidth% 
END IF 
textWidth% = 0 
END IF 
ox% = OoxKtx% 
GOSUB ScrollDisplay 
END IF 
RETURN 


IF oy%<(superHoehe%- layMaxY%+layMinY%-grid2%) THEN 
yk_ = grid2% 
0oy% = oy%+grid2% 
GOSUB ScrollDisplay 

END IF 


386 —  — Das neue Supergrafikbuch 


RETURN 


ScrollRunter: IF oy%>grid2%-1 THEN 
yA_ = -grid2% 
oy% = oy%-grid2% 
GOSUB ScrollDisplay 
END IF 
RETURN 


ScrollDisplay: '* scroll it 
" CALL. ScrollLayer(scrLayerInfo&,SuperLayer&,x%,y%) 
x% = 0O 
y% = 0 
s.fl% = 1 
RETURN 


updateDisp: IF kl%=0 THEN 


actus="> "+modus$+" [FJ="+STR$CfontHoehe%)+" [XJ="+STR$ 


(oxktmx%)+" [YJ="+STR$Coy%tmy%)+CHR$(O) 
CALL WaitTOr 
CALL SetWindowTitles(windAdd&,SADD(actu$), -1) 
END IF 
RETURN 


LoadFonts: ı* Disk-Fonts einladen 
sp$ = modus$ 
modus$ = "LADE FONTS." 
GOSUB updateDisp 


opt& = 2°0+2°16 
buflen& = 3000 
buffer& = AllocMem&(Cbuflen&,opt&) 


IF buffer&<>0 THEN 
er& = AvailFonts&(buffer&,bufLen&, 3) 
IF er& = O0 THEN 
eintrag% = PEEKW(buffer&) 
IF eintrag%>19 THEN eintrag% = 19 
DIM textAttr&(leintrag%*2) 
DIM textName$(eintrag%) 
FOR loop%=0 TO eintrag%-1 


counter% = loop%*10 
fontTitle& = PEEKL(buffer&+4+counter%) 
fontH% = PEEKWCbuffer&+counter%+8) 


textAttr&lloop%*2+1)=PEEKL(buffer&+counter%+8) 


fontTitles = m 
check%=PEEK(fontTitle&) 
WHILE check%<>ASC(!".") 


fontTitle$ = fontTitle$+CHR$(Ccheck%) 
fontTitle& = fontTitle&+1 
check% = PEEK(fontTitle&) 
WEND 
textName$(loop%) = fontTitle$+".font''+CHR$(O) 
fontName$ = fontTitle$+STR$CfontH%) 
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fontzaehler = fontzaehler+1 
MENU 3, fontzaehler,,1, fontName$ 
NEXT loop% 


CALL FreeMem(buffer&,bufLen&) 
fontflag% = 1 
END IF 
ELSE 
BEEP 
END IF 
modus$ = sp$ 
RETURN 


loadFont: ı* Lade Zeichensatz 

sp$ = modus$ 
modus$ = "LADE FONT" 
GOSUB updateDisp 
textBaseX% (menultem-1)*2 
textAttr&(ltextBase%) = SADD(textName$(menultem-1)) 
newFont& = OpenDiskFont&(VARPTR(textAttr&(text 
Base%))) 
IF newFont& = 0 THEN 

newFont& = OpenFont&(VARPTR(ltextAttr&(textBase%))) 
END IF 
IF newFont&<>0 THEN 

IF oldFont&<>0 THEN 

CALL CloseFont(oldFont&) 

END IF 

CALL SetFont(SuperRast&,newFont&) 

oldfont& = newFont& 

fontHoehe% = INT(textAttr&(ltextBase%+1)/2°16) 
ELSE 

BEEP 
END IF 
modus$ = sp$ 
RETURN 


drawtext: ı*% Text in Grafik-Bitmap schreiben 
IF (mx% MOD grid1%)>(.5*grid1%) THEN mx%=mx%+gridi% 
IF (my% MOD grid2%)>(.5*grid2%) THEN my%=my%+gr id2% 
my%=my%- (my% MOD grid2%) 
mx%=mx%- (mx% MOD grid1%) 
CALL Move(SuperRast& ,mx%+0ox% ,my%+oy%+fontHoehe%) 
modus$ = "EINGABE"+CHR$(O) 
CALL WaitTOr 
CALL SetWindowTitles(windAdd&, SADD(modus$), -1) 


modus$ = "TEXT" 
in$ = It 
WHILE in$<>CHR$(13) 
IF in$<>"" THEN 
CALL SetDrMd(SuperRast&,drMd%) 
enable% = AskSoftStyle&(SuperRast&) 
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n& = SetSoftStyle&(SuperRast&,style%, 
enable%) 

tempX% = PEEKW(SuperRast&+36) 

tempY% = PEEKW(SuperRast&+38) 


randd = tempX%-0x% 
IF rand%>layMaxX%-20 THEN 
textWidth% = PEEKW(SuperRast&+60) 
GOSUB ScrollLinks 
END IF 
IF outline‘% = O THEN 
CALL Text(SuperRast&,SADD(in$),1) 
ELSE 
CALL SetDrMd(SuperRast&,0) 
FOR loop1%=-1 TO 1 
FOR loop2%=-1 TO 1 
CALL Move(SuperRast&, tempX%+loop2%, tempY%+ 
Loop1%) 
CALL Text(SuperRast&,SADD(in$), 1) 
NEXT loop2% 
NEXT Loop1% 
CALL SetDrMd(SuperRast&,2) 
CALL Move(SuperRast&, tempX%, tempY%) 
CALL Text(SuperRast&,SADD(in$), 1) 
tempW% = 0 
END IF 
END IF 
in$ = INKEY$ 
ı* Funktionstastenbelegung 


IF in$ = CHR$C129) THEN in$ = CHR$C196) 
IF in$ = CHR$C130) THEN in$ = CHR$(228) 
IF in$ = CHR$C131) THEN in$ = CHR$C214) 
IF in$ = CHR$C132) THEN in$ = CHR$(246) 
IF in$ = CHR$C133) THEN in$ = CHR$(220) 
IF in$ = CHR$C134) THEN in$ = CHR$(252) 
IF in$ = CHR$C135) THEN in$ = CHR$(223) 
IF in$ = CHR$C136) THEN in$ = CHR$C167) 
IF in$ = CHR$C137) THEN in$ = CHR$C169) 
IF in$ = CHR$C138) THEN in$ = CHR$C174) 
WEND 


m$ = "TEXT"+CHR$CO) 
CALL WaitTOrF 
CALL SetWindowTitles(windAdd&,SADD(m$), -1) 


newpointer: '!* Zeichenpointer definieren 
opt&=2"1+2"16 
ptr&=AllocMem&(20,0pt&) 
IF ptr&<>0 THEN 
POKEW ptr&+4,256 


hardcopy: 


swapcol: 


changePrint: 
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POKEW ptr&+8,640 

POKEW ptr&+12,256 

CALL SetPointer(WINDOW(7),ptr&,3,16,-8,-1) 
END IF 
RETURN 


ı* Bitmap ausdrucken 
'sp$ = modus$ 
modus$ = "HARDCOPY" 
GOSUB updateDisp 
dev$ = "printer.device"+CHR$(0) 
er& = OpenDevice&(SADD(dev$),0,pio&,0) 
IF er&=0 THEN 
er& = DolO&(pio&) 
IF er&<>0 THEN BEEP:BEEP 
CALL CloseDevice(pio&) 
ELSE 
BEEP 
END IF 
modus$ = sp$ 
RETURN 


IF swapper%=0 THEN 
swapper%=1 

ELSE 
swapper%=0 

END IF 


RETURN 


'* Printer-Parameter aendern 

ı* Ausgabe auf das eigene Fenster 

backup. font&=PEEKL(WINDOW(8)+52) 

CALL SetFont(WINDOW(C8), font&) 

POKEL SuperLayer&+12,backup.rast& 

POKEL WINDOW(8) backup. layer& 

e& = BehindLayer&(scrLayerInfo&,SuperLayer&) 


CALL SetDrMd(WINDOW(8),1) 

LINE (0,0)-(windWeite%-8-offset%-20,windHoehe%- 
15),1,bf 

LINE (20, 10)-(windWeite%-8-offset%-40 ,windHoehe%- 
25),0,bf 

LOCATE 3,1 

PRINT TAB(4) ;"DRUCK- PARAMETER/SETTINGS" 

PRINT TAB(4);"--------- ou -- nennen 5 

PRINT 

PRINT TAB(4);"Legen Sie den Druck-Ausschnitt" 
PRINT TAB(4);"mittels des Rechteckes fest! 
PRINT 

FOR t=1 TO 10000:NEXT t 

repeat: 
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fetch% = 1 
draw =3 
modus$ = "FETCH" 


ı* Ausgabe wieder auf das Layer 
e&=UpFrontLayer&(scrLayerInfo&,SuperLayer&) 
POKEL SuperLayer&+12,WINDOW(8) 

POKEL WINDOW(8) ,SuperLayer& 


GOTO mcp 


continue: 

fetch%=0 

modus$="RECHTECK"" 

ı* Ausgabe auf das eigene Fenster 

e& = BehindLayer&(scrLayerInfo&,SuperLayer&) 

POKEL SuperLayer&+12,backup.rast& 

POKEL WINDOW(8) backup. layer& 
LOCATE 9,1 
PRINT TAB(4);USING "Neuer Start X:####";printX0% 
PRINT TAB(4);USING "Neuer Start Y:##H#";printYO% 
PRINT TAB(4);USING "Neues Ende X:##H#";printX1% 
pr intX1P%=pr intX1%-printxX0% 
PRINT TAB(4);USING "Neues Ende Y:#HH#";printY1% 
pr intY1P%=pr intY1%-printY0% 


LOCATE 15,1 

PRINT TAB(4) SPACE$(26) 

LOCATE 15,1 

PRINT TAB(4); 

INPUT "Sind die Werte OK (j/n) ";jn$ 
IF jn$="n" THEN GOTO repeat 


PRINT TAB(4); 

INPUT "L[1J Normal [2] Verzerrt ";nv% 

IF nv%=2 THEN 
PRINT TAB(4); 
INPUT "Absolute X-Ausdehnung" ;printX% 
PRINT TAB(4); 
INPUT "Absolute Y-Ausdehnung" ;printY% 
printSpec% = 0 

ELSE 
printSpec% = 4 

END IF 


POKEW pio&+44,,printX0% 
POKEW pio&+46,printY0% 
POKEW pio&+48,printX1P% 
POKEW pio&+50,printY1iP% 
POKEL pio&+52,printX% 
POKEL pio&+56,printY% 
POKEW pio&+60,printSpec% 
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ı* Ausgabe wieder auf das Layer 
e&=UpFrontLayer&(scrLayerInfo&,SuperLayer&) 
POKEL SuperLayer&+12,WINDOW(8) 

POKEL WINDOW(8) ,SuperLayer& 

CALL SetFont(WINDOW(8) ‚backup. font&) 

CALL SetDrMd(WINDOW(8) , drMd%) 


RETURN 


8.1 Bedienungsanleitung 


Bevor Sie das Programm starten, sollten Sie sich die Variablen- 
definition am Anfang des Programms anschauen. Sie können in 
einem Screen niedriger oder hoher Auflösung arbeiten. Da das 
aber keinen Einfluß auf die Größe der Zeichnung hat, empfeh- 
len wir der Detailgenauigkeit wegen einen Screen geringer Auf- 
lösung. 


Auch die Größe der Superbitmap - und damit die Größe der 
Zeichnung - können Sie selbst festlegen. In der jetzigen Fassung 
verwendet das Programm eine 400x800 Punkte große Zeichen- 
fläche. Wenn Sie den Speicher dazu besitzen, können Sie die 
Fläche natürlich auf volle 1024x1024 Punkte, den CAD-Stan- 
dard, ausdehnen. 


Noch eine wichtige Bemerkung: Der Kreis-Befehl funktioniert 
nur zusammen mit der Kickstart-Disk Version 1.2 oder darüber! 


Starten des Programms 


Starten Sie den Malomat einfach mit "RUN". Sofern Sie über 
zwei Disk Drives verfügen, sollte sich in einem Laufwerk Ihre 
Programmdiskette und im zweiten die Workbench-Disk befin- 
den. Besitzen Sie nur ein Disk Drive, dann sollten Sie nach dem 
Ladevorgang Ihre Programmdiskette aus dem Laufwerk nehmen 
und durch die Workbench ersetzen. Sollte es dennoch einmal 
dazu kommen, daß ein Requester erscheint ("Bitte Disk sowieso 
einlegen..."), dann wird der Workbench-Screen automatisch akti- 
viert. Sie gelangen zu unserem Zeichenscreen durch gleichzeiti- 
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ges Drücken der linken "A"-Amiga-Taste und "M". Sie können 
natürlich auch den Workbench-Screen nach unten ziehen. 


Erste Zeichnungen 


Sie befinden sich nun im Zeichenprogramm. Den größten Teil 
des Bildschirmes beansprucht die Zeichenfläche. Die Fenster- 
Kopfzeile ist ausgeschaltet. Drücken Sie einmal auf die rechte 
Maustaste! Es erscheint das Menü: 


SERVICE ZEICHNEN FONT 1/0 


Unter "SERVICE" finden Sie: 


Screen löschen 
Koordinaten ein 


Transparent 
JAM 2 
Complement 
Inverse 


normal/reset 
kursiv 

fett 
unterstrichen 
outline 


s/w w/s 
Kopfleiste ein/aus 
QUIT 


Der erste Menüpunkt löscht die gesamte Zeichnung. Der zweite 
Punkt schaltet ein Koordinatenraster ein. Wählen Sie diesen 
Punkt erneut, und das Raster verschwindet wieder. 


Die folgenden neun Modi bestimmen die Art der Textausgabe, 
auf die wir gleich kommen werden. s/w w/s vertauscht Hinter- 
und Vordergrundfarbe. Das kann recht nützlich sein, wenn man 
nur Teile der Zeichnung löschen will. 


Wählen Sie einmal den Punkt "Kopfleiste ein/aus" an! Sofort 
wird die aktuelle Position der Maus in der Kopfzeile angezeigt, 
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zusammen mit dem gerade aktiven Zeichenmodus und der Höhe 
des augenblicklichen Zeichensatzes. Ist die Kopfzeile einge- 
schaltet, wird viel Rechenzeit dafür verschwendet: Scrolling und 
Zeichenfunktionen verlangsamen sich. Wenn Sie also ohne die 
Kopfzeile auskommen können, lassen Sie sie ausgeschaltet. 


Standardmäßig befinden Sie sich zunächst im Zeichenmodus 
"FREIHAND". Sobald Sie die linke Maustaste drücken, zeichnet 
die Maus, vergleichbar mit einem Stift. Wenn Sie sich der rech- 
ten oder unteren Kante nähern, scrollt das Bild weiter; zusätzli- 
che Teile der Superbitmap werden sichtbar. 


Am rechten Bildschirmrand finden Sie fünf kleine Symbolfelder. 
Fahren Sie mit der Maus einmal auf eines, und drücken Sie die 
linke Maustaste! Der Bildschirm scrollt in die jeweilige Pfeil- 
richtung, wenn dort noch Platz ist. Das "H"-Symbol steht für 
"Home". Es verschiebt die Zeichnung blitzartig wieder in den 
Ausgangszustand zurück. 


Kreise, Rechtecke, Linien 


Unter dem Menüpunkt "ZEICHNEN" finden Sie verschiedene 
Zeichenfunktionen. Solange Sie die linke Maustaste gedrückt 
halten, können Sie Größe und Richtung der jeweiligen Zeichen- 
operation frei bestimmen. Lassen Sie die Taste los, wird das 
Objekt endgültig gezeichnet. 


Bildschirmausschnitte löschen 


Um nur Teile der Zeichnung zu löschen, wählen Sie den Punkt 
"Löschen". Sie können nun ein Rechteck beliebiger Größe be- 
stimmen, dessen Inhalt mit der Hintergrundfarbe ausgefüllt wird. 


Text ausgeben 


Dies ist eine der Zeichenfunktionen. Sie können mit ihr Grafi- 
ken beschriften. Nachdem der Text-Modus aktiviert ist, können 
Sie weiterhin mit der Maus über den Bildschirm fahren. Sobald 
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Sie die linke Maustaste drücken, erwartet der Amiga eine Text- 
eingabe über die Tastatur. Als Abschluß drücken Sie die RE- 
TURN-Taste. Die Funktionstasten sind wie folgt belegt: 


Fl FR FB F4 FB F6 F7 F8 F9 FIO 
ÄGa:OÖO 5 Ua RB » (OÖ) (R) 


Der Eingabe echter deutscher Texte inklusive Umlaute steht also 
nichts im Wege. 


Die Textausgabe kann variiert werden. Unter SERVICE stehen 
Ihnen zahlreiche Modi zur Verfügung: 


Transparent: Grafiken werden durch Text nicht ge- 
löscht. 

JAM2: Grafiken werden durch Text über- 
schrieben. 

Complement: Wo schwarz ist, wird es weiß und umge- 
kehrt. 

Inverse: Hinter- und Vordergrundfarbe werden 
vertauscht (funktioniert nur im Text 
Normalmodus). 

Normal: alle Schriftstile werden zurückgesetzt. 

kursiv: Schrägschrift 

fett: Fettdruck 

unterstrichen: Text wird unterstrichen. 

outline: Textsilhouette 


Diese Modi können nach Belieben miteinander gemischt werden, 
indem Sie nacheinander die betreffenden Punkte anklicken. 
Diese Modi lassen sich auch während einer Texteingabe verän- 
dern. 


Der Druck auf die RETURN-Taste beendet die Eingabe. 


Wollen Sie mehrere Zeilen Text ausgeben, die linksbündig und 
in gleichem Abstand voneinander entfernt sind, dann können Sie 
das GRID einschalten: Wählen Sie in X-Richtung die Breite ei- 
nes Buchstabens des Zeichensatzes, in Y-Richtung seine Höhe 
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(mehr Informationen zum GRID siehe unten!). Jede Textzeile 
wird wie bisher mit RETURN abgeschlossen; für eine linksbün- 
dige Zeile fahren Sie einfach mit der Maus unter das erste Zei- 
chen der darüberliegenden Zeile und drücken den linken Maus- 
knopf. 


Benutzung verschiedener Zeichensätze 


Der Menüpunkt "FONT" erlaubt Ihnen, Disk-Zeichensätze zur 
Textausgabe zu verwenden. Beim ersten Anklicken finden Sie 
dort den Punkt "Fonts laden". Bevor Sie ihn anklicken, sollte sich 
die Workbench-Diskette in einem der Drives befinden. Jetzt 
werden alle verfügbaren Zeichensätze gesucht (max. 19, mehr 
kann MENU nicht verarbeiten). Beim nächsten Anklicken ent- 
hält dieses Menü dann eine Liste der zur Verfügung stehenden 
Zeichensätze. Aus dieser Liste können Sie beliebige Zeichensätze 
auswählen. "Text" gibt Texte im zuletzt geladenen Zeichensatz 
aus. 


Grafik-Ausdruck 


Falls Sie über einen grafikfähigen Drucker verfügen, können Sie 
Ihre Zeichnungen ausdrucken. Der Menüpunkt "I/O" verfügt 
über zwei Unterpunkte: "Drucken" und "Param.". Wollen Sie die 
gesamte Zeichenebene ausdrucken, dann genügt es, den Punkt 
"Drucken" anzuwählen. Sind Sie hingegen nur an einem Aus- 
schnitt interessiert, dann wählen Sie "Param."! Dort werden Sie 
aufgefordert, den Druckausschnitt zu markieren. Dazu steht Ih- 
nen ein Rechteck-Rubberband zur Verfügung, mit dem Sie den 
gewünschten Bereich umrahmen können. Anschließend werden 
die so ermittelten Daten angezeigt und sicherheitshalber können 
Korrekturen angebracht werden. Stimmte der Ausschnitt jedoch, 
können Sie wählen zwischen (1) normalem und (2) verzerrtem 
Druck. Normaldruck druckt die Grafik in den realen Proportio- 
nen aus. Andernfalls können Sie die Anzahl der Punkte in X- 
und Y-Richtung angeben, die die auszudruckende Grafik auf 
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dem Drucker einzunehmen hat. Wenn Sie in horizontaler Rich- 
tung hier allerdings mehr Punkte angeben, als Ihr Drucker ver- 
arbeiten kann, kommt es nicht zum Ausdruck. 


Für die Dauer des Druckes sind alle Zeichenfunktionen außer 
Betrieb. 


Grid / Raster 


Oft werden in Zeichnungen Diagramme und eine symmetrische 
Aufteilung erforderlich. Mit der Funktion "Raster/Grid" können 
Sie ein beliebig großes Zeichengrid einstellen: Wählen Sie ein 
Rechteck beliebiger Größe! Von nun an werden alle Zeichen- 
operationen nur noch als Vielfaches dieses Rechteckes ausge- 
führt, sind also immer symmetrisch zueinander. Sie können die 
Größe des Grids immer wieder verändern. "Grid Reset" setzt das 
Grid wieder auf Ixl-Punkt, also den normalen Zeichenmodus. 


Flächen füllen 


Mit der "Fill"-Funktion lassen sich beliebig große Flächen füllen. 
Die Flächen müssen von einer lückenlosen schwarzen Linie um- 
randet sein. Fahren Sie mit der Maus in die Mitte der Fläche, 
und drücken Sie die linke Maustaste! Bei großflächigen Füllak- 
tionen, insbesondere, wenn sich zahlreiche andere Objekte in der 
Zeichenfläche befinden, kann die Füll-Operation bei einer 
1024x1024-großen Zeichenfläche über eine Minute dauern, in 
der die zu füllende Fläche durchgerechnet wird. 


Eigener Pinsel 


Sie können einen beliebigen Teil Ihrer Grafik (die Größe ist al- 
lerdings abhängig von Ihrem verbliebenen Speicherplatz) als 
Pinsel wählen. Dazu selektieren Sie bitte unter "ZEICHNEN" das 
Feld "Get Area". Nun können Sie einen beliebigen rechteckigen 
Teil der Grafik "einfangen". Mittels "Paint Area" können Sie nun 
damit zeichnen. 


1024x1024-Punkte-Malprogamm ——————— 397 





Eigene Muster (Pattern) 


Ganz ähnlich funktionieren die eigenen Muster. Jeder Teil Ihrer 
Grafik kann als Mustervorlage genutzt werden. Gehen Sie so 
vor: Zeichnen Sie einen kleinen Teil des Musters. Fangen Sie 
diesen Teil mit "Get Area" ein. Jetzt fangen Sie dieselbe Grafik 
noch einmal ein, und zwar mit dem "Raster Grid". Gehen Sie 
nun auf "Paint Area". Ihr Muster kann jetzt als Raster auf den 
Bildschirm gemalt werden! 


398 ——————— Das neue Supergrafikbuch ——— 


————  Stichwortverzeichnis —— 399 


Stichwortverzeichnis 


Absolute -Adressierung. ascnnenee 23 
AGGE ON aaa 324 
Addressierung, absolute .......eeneesesssesnesonnennennnnennnnnnnnennnennnsnnnnneenenn 50 
Adressierung, relative ....unceesseeenssenosunenonnnnnnnenonnenennnnn 23, 34, 44, 50 
AGrESSIErUNSSsart. ua seineeieisnisiuhlen 23 
ANOCRaSsfer 4... ers ssekseessäerere 232 
Amiga: VIieWport M941. nennen 356 
AnNSYNChrone 1/9: zu... 348 
&REAFILE 2 use nein 5] 
AreaEill-Müster sus seines 177 
ATEaINEO. esse easeoneessssen 178 
AULIOSUNG. seen ee ae 38 
AVALFONES seele essen 297 
Bildsch1ırmauflösUN8. running 37 
Bildverhältnis 52. 3 2er 39, 41 
Binärzahlen. zn... nee 59 
BItNaD nase ae eiserne 172, 177 
BitmapHesder ..nnesiieinssereneeeieenerneinseriesien 355 
Bitplanes a2. eine 74, 79, 106, 110, 113, 356 
BIER ae ee tere 39, 81 
BMHD: nur 355 
BOBS a ee ae ee 86 
BODY wie ee een 356 
Breiten- Labelle u... 286 
CAM see een ee 356 
BUND ee ee 248 
BERT seen sesgesre 356 
VEND ana ee enter 249 
Na Data ee nee ee 304 
ChHarRK ein eu. 305 
EharE0e. en nee 304 
Charspace nn see neeshnssnistesse 305 


ELEAR ana eeeeenters 78 
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GlearPointer vun 162 
CEOSE 2.2.22 Sanur ssiiet 78 
GIOSEFONE een letter 288 
CES 2 De ee ee 63 
EMAR 3.5.2: Behind 356 
CMOVE: ne eben 249 
COLEISION: 2:4: 2er 109 
COEOR 2m sie 63 
EOl6rMaPp: aussen near 211, 356 
Copper: Instrüction ELISE an. een 244 
CoBperskListen anna 211, 230 
CODYMem: ausieeinnneenenen einen 352 
CreatelUpfrontlayer u... 255 
ICWAI wessen FERRSRERIN TR ERUUEE SUN 248 
Daten-Decodierung .............2ss022ss002ereonnoneeennnnnnsonnnnonnnnnnnsnnnennnnnnne 286 
Dätenstruktur Bitmap" aauusenann 207 
Datenstruktur "IODRPReag" ..................000s000002s0sennnnennensenennnnennen 333 
Datenstruktur "Layer „scene 256 
Datenstruktur "Message Port" ......eenssesssensseennsonnnnennnnsnensenonensenene 335 
Dätenstruktur "Rastpört? 2... 175 
Datenstruktur. "Screen. „use 168 
Däatenstruktüur "TextAttr „zes: 286 
Datenstrüktür "TextkEoNnt ers. 282 
Datenstruktur "View ‚nauieeeare 230 
Datenstruktur "Viewport" ..eeseassassesssensnnenonnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn 209 
Datenstruktur "WindoW" 2... ern 137 
Delay een sie 368 
DeleteLayer 5m 270 
DIM: ir. essen 58 
Dimensionen des Screens ......eenseaseesseenssenssnonsnnnnnnnnnnnnnnnnnnnnnnnnnnn 170 
DiskZ Fonts nn seen lest 289 
DOIO: eier ee ee 336 
Double-Büfferine un. aussi 238 
DUZAERF er senrnrner  rhee 213 
Eigenbau-Requester ......ennssssonssennnsnennnnnsnennnnensnnannnnnnnnsnnnnnnneenenenn 262 
EIIIDSON era ee reihe 37 


ERASE seele 78 
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Extra Halfbrite a. nenn 213 
Farbanteile 2... 64, 72 
Farben. ............... 17f, 21, 37, 46, 50, 54, 62f, 94f, 111, 116f, 221 
Färbregister enseuseaseaeue 21, 55 
Fenster eu esse ssueneesgeiteär 19 
Fenster- Farben u.a 157 
ElA85 nee 100 
Flächen: 2.2.02. eisen 49 
Freel 0l0E- MAD. seen snsssssennessseedesite 232 
BreeC Br List nenn ee eTeeeeeseeh 232 
FreeRaster „.sssensieianienssnseeeeneseeedan 232 
Free V PortCOpE ists nn. gas 232 
FTEISINEO „u. ee ae 178 
Genlock Video. essen 213 
GEL 010 MaD 2 erstens 232 
Gratbik -Cu1isor usa 23, 35 
Gratik-Stammhirn: u. en 229 
Graphicraft Colorcycle Daten .......euseseeessnssesssssnnnessesnneeennneeenenenn 356 
Hallbriiter. ..ecneeneeeseesseseniigieseeiiuree 214 
HAM nun een seiner 213 
Hardcopy anne isn 333 
HIERES u ee een eine 213 
Hıt=-Mäske: een eelerensrseskgeee 110 
Hold-And-Modify-Modus .......esssesessssoneneonnneeeonnnnennnnnnnnnenannnennn 221 
IDEMP-Fla885 es ae 157 
IEBM „sasseeneeeenenens a heserseeeri 355 
InıtBitMap .......... ee ee 232 
IN VIEW nennen 232 
TI EVEROFL. 2 ea ee a een 232 
ENT ee es eeeaeeseein ernennt 78 
Interlace 1... een ssncenenigasi 213 
Interleaved 2.0... raeeesieeielesne 355 
Interrupt-Programmierung .......essnseesssseeosonsesonnnnnnnnennnnnenonnnnnsenenenn 49 
INtUI ION Era snelas sense ne nes 137 
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Kästchen... nn eeeaest 25, 32, 35 
Kollısıonsmäske: 2... 106 
Koordinaten des Grafik-CursorS ......eeeseeesssesssonsonnennnsnnnneonennene en 182 
Be ee ee een: 36, 37 
RK re1ssesment „ansehen 46 
Laden... see 76, 97, 98 
Layer anseraesetelasealesren 177 
LayerDackdiop Mannes 262 
Lavyerml0...2:.u02 eisernen enge 172 
Lavers van. ee are we 252 
Layersimple u... 261 
Layessmart a een essen enge 261 
Layersuper una 262 
EINE ee aan e 35, 49 
Linien nee 25, 47, 57, 96 
LiMienmuüster. nes Diese angeeee 181 
LoadRGB4 ........... na nee 232 
EO3AV Ewa ee eeesasneke 232 
Makey.Polt u... ee eneneiradsere gensenatee 232 
Mäsken nur 56f, 105, 110 
Maus: sen einetläiiuslsies 16, 27 
MeE=-Maäaske. un... nearai 110 
MENUS unse a ae eier 31 
Message: Ports... ans 157 
MOUUlO rastet 285 
MolresElfekt 2.0 25, 40 
MOUSE 2.2.0.2 sneuh 16 
MOVEeWINdOW u. ins 162 
MIBCoOD:. un eiisniliienn 232 
Multi-Color-Modus .........ssussssonsssnnnnnennnnennnnnnnnnnnennnsnnnnnnnnennnennnnn 186 
Müster’ u... u: 19, 55ff, 60 
Normalschrift-Zeichensatz .........eeseessssesssesnnanennnnnnsnnnnnnnennnnnnnnnnnn 303 
OBJIECH CLIP aan 110 
DBIEETAXIN. sa eskhriseehskenn 103 


OBJECT TCELIP en 109 
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OBJETTHIT 22... een 106, 110 
OBJECLON „22er 103 
OBJECT PEANES: 2.2.0032 114 
OBJECT PRIORITY 2.2.28 Eee 110 
OBJECT SHAPE: 2... 2er 86, 98f, 103 
OBJECT.START. ....................... ee a ee erste 103 
OBJECT. VX- Funktion wo. 108 
OBIECT INNE zes een 103 
OBJECT R-FURK00.. sen 108 
OBJECT RIN. nee ee aaetenh 103 
ON. COLEISION: GOSUB: u.a. 109 
OBEN Ss aa nee 78 
ODBERDEVWICE ie eeeeyeriaie 335 
DOBEHDISKFORE: 22:4, 290 
ODENFONE a anne ee 287 
OPTION BASE 1 2.2: 3a nn 58, 61 
Overlay Flags  ee aesane 104, 117 
PALETTE 1.2.3800 een eines 63 
PEBA: 22.2822 ea este eltern 213 
PlaneOnOlE „nassen 113 
PlanePick 2.2.2 nennen 113, 116 
POINT=-Befehl sa. aa 2] 
Printer.device 2... unten 340 
Proportionalschrift-Zeichensatz .........ccnceseseseenesnennennnnnnn Beet 303 
PSET an sanen ass s se 81 
Punkt seinen 15f, 18, 21, 23, 47 
RAasSIHOr ante: 171, 175, 257 
REcHlecke ee lssene nee ers 32 
Relatıve Adressierune. users 23 
SaveBack-Fl38 nu... 101, 104, 117 
Save Büb- Ela8 anne een 104 
Schattenmaske in... 104 
Schreibmaske 2.5. 22.222 near 178 
SCHEEN a ee ee 18f, 62 
SELBEN-Färben 2... un. ie 172 
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Scrolling .............. ee Near 260 
SCTOH Layer una 270 
OK ee ee Sees 368 
SERIEN zensiert 46 
Selbstmasker sense: 110 
SEE FON en ee tee 288 
SELPOINLET Aue essen ers 159 
SEIW INGOWI 1tles 22.22.20 270 
Shagowmask „u... eier 106 
SIZEWINGOW nee 165 
SDEICHEr aa ee ae 18, 78 
SDEICHEIN ann nasser 73, 76, 97f 
SDEILERFIIR une seareianke 116 
SSDIIES rn een 85f, 116, 213 
"Stoßmaske ...eeeessannennnennnnnnennnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnsnnnnennennnnn 110 
SUDELbIEMaP. nasse 259, 270 
SUDErIAVer een 265 
TORE seien 183 
TEXtHOBE een see 183 
Tiele szene 18, 62, 74, 95, 105, 111, 117 
TIMER-Befehle au... llsnsurihas 49 
IMPR3S une nnfireessetensener 178 
Und-Verknuplune „ass 83 
"Dser=CöHper-Liste near 244 
VIEW een seele 229 
VIEWDOTF 2a essen 171, 209 
VEIIde ans eeeeen eean eas 213 
WAILFOR 2er ae 270 
WiNndowW..eeeeeeresssaiisyerlesnur: 22, 51, 62 
WINdOWLEIMIES 2. east 164 
WindowToßBack ......... gel ke eds se 167 
WINGOW TOFIONt une nnwanneeie 167 
Winkel 2..2.2..20822e esse 42, 44, 46 


MN es ee 78 
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REISE Sie 368 
RORER He er years 367 
XOR. insel 79 
X Read. elta, 368 
Zeichen=-Kerin 2.0.08 286 
Zeichen- MOdUSs u... nes 179 
Zeichenabstand. 2...uwssennenn ash ehr 184 
Zeichenbreite u... nie 183 
Zeichendaten sera dealer 285 
ZEICHENF Ar Den areas 179 
Zeichengeneräator ...cssssasessssssonnssonnnnnnnnsnsnnnnnonnnnnnnnnnnnnnnnnnnnsnnnnennn 281 


Zeichensätze: sa esse essit 281 


Eu Bücher zum Amiga 2000 


Der Amiga 2000 wird immer beliebter. Kunststück, hater doch 
wirklich das Zeug zum Traumcomputer. Besonders für diejeni- 
gen, die einen Amiga wollen, aber auch einen PC brauchen. 
Das einzige, was den Amiga-2000-Besitzern bisher fehlte, 
war die passende Literatur. Das hat sich mit diesem Buch 
geändert. 


Aus dem Inhalt: 


— Amiga-Grundlagen leichtgemacht 

— So stellt man die Akku-Uhr 

— Vomrichtigen Umgang mit AmigaDOS 

— Software und was man damit machen 
kann 

— Software-Installationstips für die 
Harddisk 

— Einbau der PC-Karte 

u — Speicher erweitern - aber richtig 

DATA BECKER - Einbau und Einrichten von PC- und 
Amiga-Harddisk 

— Wie man Kickstart wieder ins RAM 


AMIGA | 
— Ton auch für den PC 





Rügheimer/Spanik 

Das große Buch zum Amiga 2000 
Hardcover, 736 Seiten, DM 59,— 
ISBN 3-89011- 199-8 


DAS STEHT DRIN: 


Der Amiga ist eine tolle Grafik-Maschine. Bis zu 4096 Farben gleichzeitig, 
640 x 512 Bildpunkte Auflösung, Sprites, Bobs und die Geschwindigkeit 
des Grafikprozessors begeistern einfach jeden Amiga-Anwender. Das 
neue Supergrafikbuch zum Amiga hilft Ihnen diese Funktionen schnell 
und sicher in den Griff zu bekommen. Anhand von vielen Beispielpro- 
grammen lernen Sie die Grafikprogrammierung in AmigaBASIC und GFA- 
BASIC. Denn gerade GFA-BASIC bietet sich durch seine Schnelligkeit be- 
sonders für die Intuition-Programmierung an. 


Aus dem Inhalt: 


e Die Grafik-Befehle des AmigaBASIC (Punkt, Linie, Kreis, Rechteck, 
Muster, Flächen füllen) 

Laden und Speichern von IFF-Grafiken 

Erstellen von Sprites, Bobs und Animation 

Fenster- und Screen-Programmierung unter Intuition 
Systemprogrammierung mit den Libraries 

Super-Malprogramm durch 1024 x 1024 Bildpunkte 

Die verschiedenen Zeichensätze und Schriftarten von BASIC aus 
nutzen und anwenden 

Die verschiedenen Grafik-Befehle des GFA-BASIC 

Zugriff auf die ROM-Libraries mit GFA-BASIC 
Multitasking-Hardcopyroutine 

Ausdrucken beliebiger Fenster 

Superschnelles Apfelmännchenprogramm in GFA-BASIC zum 
Abtippen 


UND GESCHRIEBEN HABEN DIESES BUCH: 


Jens Trapp und Tobias Weltner sind begeisterte Amiga-Anwender mit lan- 
ger Programmiererfahrung. Tobias Weltner, der schon im Buch „Amiga 
Tips & Tricks“ die faszinierenden Möglichkeiten des Rechners beschrie- 
ben hat, beweist auch hier, daß schwierige Themen leichtverständlich 
dargestellt werden können. 
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